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5 leichte Stücke 9 
Kurze, leicht einzugebende Programme, 

damit Sie sich an den ZX Spectrum, seinen 

Zeichensatz, seine Steuerfunktionen, seine 

Farben und seinen Tongenerator gewöhnen. 


Spiel es noch einmal, Sam... 19 
Computerspiele mit beweglicher Grafik, 
Videospiele und intellektuelle Aufgaben. 


Nicht nur ein Spielzeug 37 
Ernsthafte Anwendungen und Geschäfts- 

programme. 

Das Gedächtnis 63 


Eine Sammlung von Programmen, mit der 
Sie den Speicherinhalt des ZX Spectrum 
kennenlernen. 


Das Herz der Maschine 87 
Eine Auswahl von Maschinenprogrammen. 

Sie finden darin nicht nur eine Aufstellung 

in mnemonischem und Dezimalcode, 

sondern auch zu jedem Programm ein 

BASIC-Programm, das die Eingabe verein- 

facht. 


Intermezzo 97 
Ein paar triviale Spiele, die keinen anderen 

Zweck haben, als Sie für ein paar Minuten 

zu unterhalten. 


Routinen 

Eine Aufstellung von Unterprogrammen, 
die Sie eigenen Programmen anfügen 
können. 


Computer-Kunst 
Bilder und Töne zum Genießen 


Oldies 

Eine Sammlung von “Computer-Classics", 
die in keiner Programmbibliothek fehlen 
dürfen. 


Sam, spiel es immer wieder... 
Kein Programmierbuch wäre vollständig 
ohne die geliebten Weltraumspiele. 


105 


117 


143 


VORWORT 


Egal, ob Sie als Neuling an den ZX Spectrum herangehen 
oder als versierter Programmierer, fasziniert von den fan- 
tastischen Grafik-, Farb- und Speichermöglichkeiten des 
Spectrum, sofort in die Feinheiten einsteigen - hier finden 
Sie eine Reihe von Programmen und Routinen, die Ihnen 
nützlich sein sollten, wenn Sie alle Qualitäten Ihres Com- 
puters voll ausschöpfen wollen. 


Noch ein Hinweis, um Ihnen unnötige Fehler bei der Ein- 
gabe der Programme zu ersparen: Der besseren Lesbar- 
keit zuliebe wurden die Listings auf einem Normalpapier- 
Drucker ausgedruckt, Dieser Printer stellt einige Zeichen 
etwas anders dar, als Sie es vom Bildschirm oder dem klei- 
nen ZX-Printer gewohnt sind. Bitte sehen Sie sich die 
folgenden Zeichen und ihren Ausdruck an. 

wins 

sser Buchstabe 
imer Euchztabe 


grosser Buch 
Kleiner Buch 
kleiner Buch: 
kleiner Buch: 
Klammern 
kleiner al: 
der "Null 
fuvehrungszeichen) 

"tz Anfvehrungszeichen;: space, 
An fuehrungszeichen 


ArBDODECHR 


a 
ei 


u 


Bei den seltenen Gelegenheiten, wo eine Kette von zwei 
oder mehr Leerzeichen benötigt wird, wurde eine REM- 
Zeile eingefügt, um die Anzahl der Leerräume anzugeben. 


Alle Grafikzeichen (einschließlich der selbst definierten) 
wurden mit Hilfe der entsprechenden CHRS-Befehle 
erzeugt. Das erspart Ihnen sinnlose Probeläufe durch 
schlecht lesbare Listings. 


Alle Variablennamen wurden klein geschrieben. Alle 
Befehle stehen in Großbuchstaben. 
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Jedes Programm enthälteine Zeile 9000, diegewöhnlich so 
aussieht: 
9000 SAVE "Programmname” LINE @ 


Wenn Sie ein Programm eingegeben und sich davon über- 
zeugt haben, daß das Programm fehlerfrei ist, können Sie 
GO TO 9008 eingeben. Dann wird das Programm so auf 
Band gespeichert, daß es sich nach dem Zurückladen von 
selbst startet. 


VORBEMERKUNG ZU DEN LISTINGS 
Übrigens, alle Programme laufen auf der 16K Version des 


Spectrum, außer; “Rechnung”, "Buchen” und dem Maschi- 
nenprogramm "Blättern", die 48K benötigen. 


5 LEICHTE 
STÜCKE 


GROSSE BUCHSTABEN 
-TEST 


DIGITAL UHR 


GROSSE 
BUCH- 
STABEN 


Die ersten beiden Programme untersuchen den Zeichen- 
satz des ZX Spectrum. 


Der gesamte Zeichensatz, der im Anhang A des Spectrum- 
Handbuchs aufgezeichnet ist, läßt sich in fünf Gruppen ein- 
teilen. 


CHRS ® bis CHRS 31 : Kontrollzeichen 


Das sind keine 'Zeichen’ im üblichen Sinn, da sie nicht auf 
dem Schirm ausgegeben werden. Sie verursachen solche 
Dinge wie Farbe und Position des Zeichens, das als 
nächstes angegeben wird. 


CHRS 32 bis CHRS 127: "Normale Zeichen” 


Mit nur zwei kleinen Ausnahmen, (dem Pfund und dem 
COPY Zeichen) ist dies der berühmte ASCII Zeichensatz, 
der bei den meisten Personalcomputern verwendet wird. 


CHRS 128 bis CHR$ 143 : Sinclair Graphikzeichen 

CHRS 144 bis CHR$ 164 : vom Benutzer zu definierende 
Graphik 

CHRS 165 bis CHR$ 255 : "Zusammengesetzte” Zeichen 


Schlüsselwörter usw. die alle eine spezielle Funktion 
haben, aber die auf dem Schirm durch eine Kombination 
von zwei oder mehr Zeichen dargestellt werden. 


Das erste Programm betrachtet lediglich den “normalen” 
Teil des Zeichensatzes und zeigt, wie die Zeichen im ROM 
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abgespeichert sind, indem es sie 64mal vergrößert am Bild- 
schirm anzeigt. 


Die Zeichen sind im ROM unter einer Adresse abge- 
speichert, auf die die Systemvariable CHARS zeigt (siehe 
Zeile 10), und zwar auf die gleiche Weise, wie durch den 
Benutzer definierte Graphikzeichen. Acht Bytes bestim- 
men die ‘Bildpunkt-Matrix’ jedes Zeichens. 


Diese 8 Bytes werden in Zeile 25 identifiziert und in Zeile 
40 in binäre Form umgewandelt (BIT). Jedes BIT, das 
normalerweise dazu benutzt werden würde, um anzu- 
zeigen, daß ein einzelner Bildpunkt ‘geplottet' bzw. nicht 
'geplottet' wird, wird nun benutzt, um ein ganzes Zeichen 
zu erzeugen. Entweder ein schwarzes Quadrat (CHRS 
143), wenn der Wert des BITs 1 ist oder ein weißes 
Quadrat (CHR$ 144), wenn sein Wert ® ist. 


Der Zweck der durch den Benutzer definierten Graphik- 
zeichen in diesem Programm besteht darin, einen Raster 
zu erzeugen, damit man genau erkennen kann, wie jedes 
einzelne Zeichen aufgebaut ist. Es kann für Sie beim 
Entwerfen Ihrer eigenen Zeichen nützlich sein, genau zu 
wissen, wie Sinclair die Buchstaben entwickelt hat. 


RESTORE : FOR je Tm 7: RER 


je FOHKE VER CHRS& 144+,j.a: NERT 
Fi 

ı@ LET x=FEER 239508 +2=58»PEER & 
SBsa7+255 

AS FOR Jj=e0 TO 985: TLS : PRIMT 
AT 4,208, "CHRE ": JeSe;" "SCHAs Lü 
+32) 


= 
zB FÜR p=0 TO 7 
25 LET byte=PEER (c+p+.j#®©) 
2a FRINT AT F.1S: byte 
35 FGR 
4a LET 
zsbute-äshn: 
45 FRINT AT PR.9S- 
ri 
za NEXT L 
S5 NEXT FE 
28 IP ler 
FLASH 1: 


2): LET bit 


UK 


HRs (1dd4-bi 


ü 


Ss THEN FRINT AT 15, 
3 Bitte beliebige Tazt 
druscken FRUSE & 
ES NEXT J: STOP 
1a DATA 255,129,129, 129. 1=@=,12 
=,129,255 
agan SAUE "CHR LINE & 
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CHR TEST 


Welchen einfacheren Weg, um Sie an den Zeichensatz des 
Spectrum zu gewöhnen, könnte es geben, als ein einfaches 
Spiel, das Ihr Wissen über den CODE jedes einzelnen 
Zeichens testet. 


Das Programm zeichnet eine stylisierte Bombe mit schnell 
abbrennender Lunte. Es zeigt außerdem ein zufällig aus- 
gewähltes Zeichen, und es bleiben Ihnen einige wenige 
Sekunden, um die richtige CODE Nummer einzugeben 
und so die Bombe zu ‘entschärfen’. 


Am Anfang werden Sie vermutlich völlig versagen, sogar 
mit Hilfe des Spectrum-Handbuches, aber nach einer 
Weile sollten Sie das Spiel leichter finden, weil Sie allmäh- 
lich den ASCII-Teil des Zeichensatzes lernen und vielleicht 
sogar den Graphik- und den zusammengesetzten Teil. 
(Aus einleuchtenden Gründen unterscheidet das Pro- 
gramm nicht zwischen Kontrollzeichen, benutzerde- 
finierten Zeichen und ‘normalen’ ASCII-Zeichen.) 


Das Interessanteste an dem Programm ist die Art, wie 
Eingaben gemacht werden. Beachten Sie, daß das ent- 
sprechende Befehlswort INPUT überhaupt nicht vor- 
kommt. Die hier benutzte Technik wird ausführlich im 
‘Unterprogramm-Kapitel' (“Routinen”) beschrieben. Der 
Grund, warum diese Technik verwenden wurde: INPUT 
veranlaßt den Rechner zu warten, bis der Benutzer 
ENTER drückt, bevor er im Programm fortfährt. Das ist 
natürlich in einem Fall wie diesem, wo ein Zeitlimit für die 
Eingabe besteht, völlig unpassend. 


Der Befehl OVER 1 wird in dem Programm dazu ver- 
wendet, um die Lunte Bildpunkt für Bildpunkt zu ver- 
kürzen (Zeile 500) und um falsche Eingaben zu löschen 
(Zeile 105). 


Übrigens: Wenn Sie zunächst eine längere Zündschnur 
benötigen, dann erhöhen Sie einfach den Wert von t 
(Zeile 25) auf 15 oder 20. 


ı18 EOÜORDER 8: FRFER 7: INK 2: 
LS 

ıi5 PRINT ART 15,5; "BOHMBE' 

z@g CIFCLE 58,52,59 

25 LET T=-1® 

sa FLOrT 55,91: DRAUL 9,5: PrAlı 
T,T:ı FLÜT QUER 1,55+7T,58+T 

35 LET NT {IRND+ZZGN +37 

4 Ir id4 AND Mi=184 THEN G 
oo Ta == 

45 FRINT RT 9,2, "Was ist der © 
ade Fuer: "';CHRSE 

sa LET a$=-'"": LET a=0© 

SE PAUSE 1%: LET i$&-INKEWS 

2a GO ZUB So 

25 IF t=A THEM 50 TO 950 

a IF i$=CHRs 135 THEN GO TI 16 


2) 

75 IF igcta" OR is>"@a" THEN GC 
TD 55 

SP LET as=as+tig: LET 3=URL as: 
FRINT AT 2,2&;a$: G0 TO 55 

18@ IF a=x THEN GO TO 300 

125 FRINT AT 2,28; QUER L;ias: © 
o To =®, 

Esoa@ DRAL QUER 1;-1,-1 

S1O LET t=t-i: RETURN 

sa@ FRINT AT 5,11; FLASH 1: "GUT 


BEMACHTI!I": GO TO 12mm 

„506 FOR K FOR u Tr 
FAFER u: Bi ELSE: BEEFÖ- 
@1l,K#7-j: MEXNT J: NEXT K: EORDER 
[= 

ı0aB FRINT "Der Code fuer ";CHRs 
x; ist: "ix 

a810 FRINT AT 21,0; "RR" zum Us 


itermachen druecken'" 

ı1028 IF INKEYS$S='r" Or INKErS='R" 
THEN RUN 

183508 Go TO 1020 

aBa0 ERAWNE "CHR TEST" LINE & 
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FARBTAFEL 


Bei Ihren ersten Versuchen mit dem Spectrum haben Sie 
vielleicht gemerkt, daß einige Kombinationen der INK und 
PAPER Farben einfach nicht funktionieren. Alles, was bei- 
spielsweise in himmelblau (cyan) auf scharlachrot (magen- 
ta) geschrieben wird, erscheint uns als unleserliches 
Gekleckse! 


Dieses Programm zeigt Ihnen genau, welche Kombinatio- 
nen funktionieren (überraschend wenige), und es dient 
außerdem noch einem weit wichtigeren Zweck. Es führt 
die Attributnummer, die zu jeder einzelnen Kombination 
gehört, in tabellarischer Form auf. (d.h. „die oben erwähnte 
himmelblaue INK/ scharlachrote PAPER Kombination hat 
die Attributnummer (ATTR) 29). 


Sie werden diese Tabelle brauchen, wenn Sie Programme 
schreiben, in denen die ATTR-Funktion verwendet wird, 
oder wenn Sie Werte in die Attribut-Datei einPOKEn. 


Beachten Sie, daß, wenn Sie das 'globa’ Kommando 
BRIGHT 1 (Zeile 18) verwenden und dann alles mit 
BRIGHT ® PRINTen, (Zeilen 30, 48 u. 70), weiße Zeichen 
und sogar weißes PAPER sich deutlich von einem weißen 
Hintergrund abheben. 


Um helle (BRIGHT) Zeichen zu erzeugen, addieren Sie 64 
zu dem angezeigten ATTR-Wert, um sie blinken zu lassen, 
addieren Sie 128. 
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BRIGHT 1: ELLE : FRINT TAB 1 
5; ARPER "rs FtTeregerepgrer serpe 


Fr 


za FÜR ja Trü 
@ FRINT AT 
BRIGHT A,cHrs 
4@ PRINT AT 
BRIGHT GS,;CHRsS 32 
Sg FOR kea TO 7 


8G LET Aaß=STARs (SsjHk! IF LEN 
as=1 THEN LET s$zCHRs TSe+ss 
7& FRINT PAPER ü INK £; BRIGCH 
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T@B;AHT KraH+s,ujisürn)as 
=@ NEXT & 
28 MEXT „u 
1889 STOR 
E22 SAUE "ATTR TAFEL." 


LINE & 
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KLAVIER 


Es ist eine Kleinigkeit, die Tastatur des Spectrum so umzu- 
definieren, daß die Tasten andere Zeichen, als die darauf 
abgebildeten erzeugen. Sie können sogar erreichen, daß 
sie überhaupt keine Zeichen, sondern Musiknoten produ- 
zieren. 


Dieses Programm verändert die obere Buchstabenreihe 
der Tastatur (QWERTYUIOP) so, daß die ‘weißen Töne’ 
eines Klaviers (vom mittleren C aufwärts, wobei die Taste 
“E” den Ton E erzeugt) produziert werden, und die ent- 
sprechend plazierten Zahlentasten die ‘schwarzen Töne’ 
erzeugen. (Wenn Sie eine richtige Klaviertastatur betrach- 
ten, werden Sie feststellen, daß die Spectrumtaste "3" D+ 
entspricht, aber daß “4” kein entsprechendes Gegenstück 
hat und deshalb undefiniert geblieben ist). 

Das Programm erzeugt einen neuen 'Zeichensatz’ im 
Array a( ). Es handelt sich dabei um einen äußerst knappen 
Zeichensatz mit keinem Zeichen für die meisten Tasten 
und den Tonwerten 1-17 für die in Zeile 18 angegebenien 
Tasten. (Die Berichtigungen von +1 in den Zeilen 30 und 
5® und -1 in Zeile 60 sind nötig, weil Tabellenelemente bei 
1 und Zeichensätze bei © beginnen). 


Mit Zeile 60 werden Eingaben von Tasten, für die kein ent- 
sprechender Tonwert existiert, zurückgewiesen, und ein 
Ton von % Sekunde Dauer für die 'Klaviertasten’ erzeugt. 


ıi@ LET n$="gzuSerStßuruisonp' 
=0 DIM as (256) 
za FOR j=1l TO 17: LET sactCobE n 
gijı4lieö 
a0 NEXT u 
Sa LET i=CüObE INKEWgs+LlL 
Ba IF zii) 'THEN SEERF .5,2a(i:i-1l 
acc To 50 
SB2B0 SAVE "RLALIER" LINE 0 
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UHR 


Das Spectrum-Handbuch erklärt ein Uhrenprogramm, mit 
dem Zeichnen des Zifferblattes, der Zeiger usw. Eigenartig, 
daß Sinclair, einer der Pioniere der Digitaluhr, uns nun dazu 
ermuntert, seinen Computer als Uhr mit Analoganzeige zu 
verwenden! 


Um wieviel angemessener (und einfacher) istes, eine Digi- 
taluhr zu bauen. 


Wir verzichten darauf, das Programm in seinen Einzel- 
heiten zu erklären, da die angewandten Prinzipien genau 
die gleichen sind, wie im Uhrenprogramm des Handbuchs 
(Kapitel 18) erklärt. 


Zeilen 10 bis 78 wandeln die eingegebenen Stunden und 
Minuten in 3 Werte um, die in die Systemvariable FRAMES 
hineingePOKEt werden, und die Zeilen 188 bis 148 führen 
die umgekehrte Operation durch, nämlich die Umwand- 
lung der Werte in FRAMES, in Stunden, Minuten und 
Sekunden. 


Der Rest des Programms legt bloß noch das Ausgabe- 
format fest (Zeile 180). 


Das Programm erzeugt eine Uhr mit 24-Stunden-Anzeige. 
Wenn Sie so altmodisch sind, daß Sie eine 12-Stunden- 
Anzeige vorziehen, dann ändern Sie den Befehl 2 in 
Zeile 140 so ab, daß er lautet: 

IF h=13 THEN LET h=1 

WICHTIG: 

Wenn Sie in einem Land leben, wo die Wechselstrom- 


frequenz 6® Hertz beträgt, dann ersetzen Sie "50" durch 
“60” in Zeile 30 und 100. 
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ı BürRbER &: FArFER 8: 
LS 

BE DIM t$(51: LET tt 
EI EEE) er, 

id INFUT "Stunde 

=e2 INPUT "Minute 7 

3& LET s=t1h+3B0G+m*+ 

+ LET b=IMNT (iar-.85558): FOÖKR 2 
ZgeErT4,b 
= LET 
E08 LET 
„3,8 
"2 LET 
20 LET 
++Z2ZS5SHPFEER 
i1lG LET hH=INT it-3s201 
125 LET 'bet-he+diege 
13580 LET m=eINT {bes 
40 LET ==b-m#Ek: IF h 
LET hea 
329 LET %$i TO Z1=5TR$ h: IF LE 
N STR nel THEN LET 18( TO ze: 
"+STRS$ h 
EM LET t$id TO Sie 
HH STR$ m=ıi THEN LET 
"A+BETRS m 


24 'THEN 


ı75 LET t$1ı7 TO 1=ETR 

M STR&$ 2z=1l THEN LET tSi7 TO 1-08 
"4ETRS = 

aıs5@a FRINT AT 11.12; t35 

90 50 TO 128 

sgaza SAUE "UHR" LINE © 


FRAGE: Was ist bei diesem Listing verkehrt? 


z crEus 
T8 TEL C GEBE+SZEbEEH 5 
BENL+HSAE 
=. LOb = 
9 LÜb " 
TS LOKE -B+H2#T'bEER (C+ 
b+2#721 
25 HESL b 
Eu HENL % 
Be bOHE Erege'to! bOKE SEEGA'T 
Te 
29 ZL0% 
aan ZenE „TerinEkL. TIME Mm 
E @ BEN SMinscKkecHharien 
= bOKE Eirege'ß: bÜFE S5oesa'en 


ANTWORT: Überhaupt nichts! - Wenn Sie wissen 
wollen, wie es gemacht wird, dann blättern Sie bitte weiter 
bis Seite 103. 


‚SPIELES 
NOCH 
EINMAL, SAM 


ÜBUNGS-SPIEL 


FESTUNG/FORT-DATA 
MINENFELD 


ÜBUNGS- 
SPIEL 


Wenn Sie ab und zu in einen Spielsalon gehen und sich die 
Typen ansehen, die vor den Videoschirmen sitzen, werden 
Sie feststellen, daß manche von ihnen geradezu unglaublich 
hohe Punktzahlen erreichen. Sicher gehört dazu eine 
spezielle Begabung, aber glauben Sie mir: Auch Sie können 
zumindest Ergebnisse erreichen, die Ihnen eine Blamage 
ersparen. 


Dieses Spiel simuliert die Grundzüge aller Schläger-und- 
Ball-Videospiele. Es gibt keine Punkte und kein Spielende, 
Sie müssen nur versuchen, die Bälle zu treffen, die Ihnen 
laufend zugeworfen werden. 


Das ist jedoch nicht so leicht wie es klingt. Durch das Fehlen 
der Wertung usw. läuft das Spiel schneller ab als die 
meisten der in BASIC geschriebenen Spiele, (obwohl ich 
die Toneffekte beibehalten habe; wenn das Spiel noch 
schneller laufen soll, können Sie diese ebenfalls heraus- 
nehmen). Ebenfalls sind die Bedingungen für das 'Treffen’ 
‚des Balles ziemlich schwer. Sie müssen den Ball mit der 
“ vollen Fläche des Schlägers treffen, Kantentreffer sind nicht 
erlaubt. (Diese Regel wird im nächsten Programm 
“SQUASH” gelockert, wenn Sie also erst das Übungsspiel 
beherrschen, sollten Sie alle Gegner im Squash besiegen 
können.) 


Die Struktur des Programms ist ausreichend, daß Sie 
daraus jedes der Videospiele der ersten Generation 
entwickeln können (BREAKOUT usw.). 


Die Ball-Koordinaten (x, y) werden durch die zwei Varia- 
blen ud (up/down) und Ir (links/rechts) verändert. jede 
davon kann entweder den Wert -1 (hoch, links) oder +1 
(runter/rechts) annehmen. Die Berührung der Seiten- 
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wand ändert das Vorzeichen von Ir, die Berührung der 
Decke oder des Schlägers das von ud. 


Die Schlägerkoordinaten (a, b), von denen a eine Kon- 
stante ist, werden durch die INKEYS-Routine in Zeile 108. 
verändert. 


In beiden Fällen benutze ich die Technik, einen Leerraum 
an der Stelle zu produzieren, an der vorher der Schläger 
bzw. der Ball war. Wenn Sie wollen, können Sie natürlich 
auch OVER 1 verwenden, um den alten Ball oder Schläger 
zu entfernen. 


Damit der Schläger eine höhere Geschwindigkeit als der 
Ball erreichen kann, brauchen Sie nur das “Schläger- 
Bewegungs-Unterprogramm’ ZWEIMAL während jeder 
Bewegung des Balles aufzurufen. (Zeilen 30 und 45). 


5 BÜRDbER 4: FAPER 4: ERIGSHT 1 

INH 9 

im CLE 

AS LET a=-28: LET be15: LET w-& 

Z& LET x=0: LET G=INT (RHhbs#-3i) 
: LET ud=1: LET Lre=INT (RnDszJ.: 
IF iIr=8 THEM LET Ir=-i 

BE FRINT AT x.4,".": IF u _THEN 
BEEFC,O1,20: LET vwd 

za Go 3UJBE ı00 

35 LET nkexr+ud 

40 IF nz<=& THEM LET wd=-ud: LE 
T w=1i1 

45 Go Sus 108 

So LET nw=4urLlr: IF nyed Or nus= 
51 THEN LET iLr=-ir: LET w=&8 

SE IF nz=3 AND nu=b THEN LET u“ 
d=z-ud: BEEF .el,5s0a 

E35 PRINT AT x,4W;CHRs 3: LET x 
"nz: LET wen 

835 IF x=22 THEN BEEFC.5,0: 50 
Ta 20 

‚a Go TO 25 

100 LET n=b+t{INKEYS="5" AND bi 
1:-£INKEYVS='"50 AND br) 

185 IF n<:b THEN FRINT AT a,b;G 
HRS 32: LET ben 

ıı1& FRINT AT =.b:iüöhrks 95 

A115 RETURN 
saoaa SAUE VUREBEUNG LINE © 
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SQUASH 


Obwohl es eindeutig auf dem vorhergehenden Programm 
aufbaut, ist dies ein ausgereiftes Spiel für 2 Spieler. (Wenn 
Sie unsozial eingestellt sind, könnten Sie es vorziehen mit 
Ihrer linken Hand gegen Ihre Rechte zu spielen - sehr 
schwierig). N 
Offensichtlich liegen die Hauptunterschiede zwischen den 
beiden Spielen in der Schlägerbewegungsroutine. Um zwei 
Schläger unabhängig voneinander bewegen zu können, ist 
die INKEY$-Methode von Haus aus ungeeignet, da sie 
nicht in der Lage ist, eine gedrückte Taste zu identifizieren, 
wenn gleichzeitig mehrere Tasten gedrückt werden. Die 
IN-Funktion jedoch, obwohl etwas schwieriger zu be- 
nutzen, hat den gleichen Erfolg und kann außerdem alle 
Tasten - auch wenn gleichzeitig gedrückt - identifizieren. 


Es gibt acht separate IN-Befehle, um die gesamte Tastatur 
zu lesen. Dieses Programm benutzt nur zwei davon: 


IN 63486 um die Tasten 1 bis 5 zu lesen 
IN 61438 um die Tasten 6 bis ® zu lesen 


Die Tasten 1 und 2 werden benutzt, um den Schläger von 
Spieler 1 nach links bzw. rechts zu bewegen, und 9 und ® 
zum Bewegen des Schlägers von Spieler 2. In den Zeilen 
105 und 110 werden die beiden IN-Befehle genau wie ein 
INKEYS ‚Befehl benutzt (außer daß IN eine Zahl und 
INKEY$ eine Zeichenkette ausgibt). Die beiden IN- 
Befehle überlagern sich nicht. 


IN 61438 gibt einen Wert von 253, wenn "9" gedrückt 
wird, und von 254, wenn "8" gedrückt ist, unabhängig da- 
von, obirgendwelche anderen Tasten aufirgend einem Be- 
reich der Tastatur gedrückt werden. Ebenso gibt IN 63486 
einen Wert von 253 für Taste “2” und von 254 für 
Taste “1” aus. 
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(In Wirklichkeit hängen die absoluten Werte, die durch IN 
erzielt werden, außer von gedrückten Tasten noch von 
anderen Faktoren ab. Vor allem vom Status des EAR- 
Steckers, welcher durch den BEEP-Befehl beeinflußt wird. 
Mit Zeile 35 wird daher sichergestellt, daß die ausge- 
gebenen Werte in der richtigen Größenordnung sind.) 


Veränderungen im 'Ballbewegungs-Teil’ sind weniger be- 
deutsam und mußten gemacht werden, um das Spiel 
interessanter zu gestalten, als eine bloße 2-Spieler-Version 
des Übungsspiels. 


“Kantenschläge’ sind jetzt erlaubt (Zeile 70) und verändern 
das Vorzeichen der Ir-Variablen. Das macht das Spiel ein- 
facher, da der Schläger dadurch um das Dreifache größer 
wird, und gibt andererseits Gelegenheit, die Bälle möglichst 
ungünstig für den Gegner zu plazieren. 


Um das zu erschweren, wird das Unterprogramm für die 
Schlägerbewegung nur einmal pro Ballbewegung aufge- 
rufen, Sie sind in diesem Spiel nicht schneller als der Ball, 
aber denken Sie daran, Sie können Ihren Schläger sogar 
bewegen, wenn Ihr Gegner am Zug ist. Natürlich können 
Sie den Ball NICHT treffen, wenn Ihr Gegner schlägt, weil 
die Schlägerkoordinaten in einem zweistufigen Array abge- 
legt sind und die Zeilen 75 und 80 nur im entsprechenden 
Feld nachsehen, wenn sie einen Treffer untersuchen. 


Die Ergebnisse werden auf dem Schirm angezeigt, und ein 
Ergebnis von 21 bei einem Spieler läßt diesen das Spiel ge- 
winnen. 


Ss BORbER 7: PAPER 8: INK ©: © 
LS 

ı8 DIM sier: DIM kim: DIM nie 
I: LET w=@A: LET kiill}=1G: LET ki 
I=z1?: LET z(1i=-1: LET p=& 

15 LET x=®: LET y=INT iRNDB&#F11 
: LET uvd=1: LET p=p+1: IF p=5 TH 
EN LET PF=1 

z0 LET Lr=INT (ANbafı-ıi: IF NO 
T ir THEN © Ta 2@ 

25 LET zsiri=z2ip)+l 


350 FRINT AT 21,0 'PMm Spiel: ir 
H Funkte: i='j21(1)1;TAB zz; "'8=", 
zsızı, IF z(i1)=81 UÜR = (2}=21 THEN 


23 


GG TO ı0c0 

FE OUT 55455,255: OUT 51433, 25 
= 

4a FRINT ART x,4;"%.": IF w THEN 
BEEF „Gil, : LET was@ 

45 50 SUR 120 


Sa LET nk=ex+ud 

SS IF nk<=8 THEN LET uder-ud: LE 
Towel 

Ed LET nysy+lr: IF ny=za OR ny= 


S1 THEN LET iIrs-ir: LET w=1 
55 IF ud=-1 OR nx<15 THEN GI T 


a IF n<=17#+Pp FNb ABS iny-bip)} 
ı THEN LET Ud=-ugd: LET I\reny-kb 


Pl: BEEF .@1,50: LET P=r+1: Ir 
p=3 THEN LET Pp=1 

75 IF n<=17+p Ahlb nu=bip) THEM 
LET ud=-ud: BEEF .81.52: LET p= 


F+l: IF p=3 THEN LET P=1 

50 PRINT AT 21.9; F 

S5 FRINT AT Kx.SYICHRs 52: LET x 
=nk: LET yweny 

ad IF x=-21 THEN BEEPF .3,9: 50 


32 Go TO d®@ 

ıa9 FRINT HT 18,bkil!;CHRs S5;HRT 
19, bkfl2}i,CHhR$ 95 

a8 LET nmniz)e=biZi+ (IN Eld3ssesd 


AND biz} <S1l1-(iTITN E&1438=-28535 AND 

Bizıegı 

A1& LET n({1l}=skil)j+cIn SBy4sgs=asıh 
AND Bil)<GSii-tLIN EBi4Ss-eSd AND 

Belısa) 


ıı15 IF nt{ill=e=Bkil) THEN Goa TO 185 
22 PRINT AT 1&,.n (ll; cCcHR$ 35; AT 
A5,bAi1l};CHRS Ze: LET bilrteniıı 
ı25 IF ni@iebie) THEN RETURM 
1358 FRINT AT 1@,nt2ı:cHR& 95; AT 
I13,bt(A):;CHhkg 38: LET bigısniar: 
RETURMN 

2200 FRINT AT 5,8, FAPER 7Tı FLAS 

H i1;"SPIELENDE :Dbruscke R zum ue 

iter-zpirzlen‘ 2 

1a25 IF INKEY&E='"r" THEN Run 

21a 50 TO 1095 

Bag ERUE "SAUARSH" LINE 8 


FESTUNG/ 
FORT-DATA 


“Festung” ist mehr ein intellektuelles Puzzle als ein Spiel im 
üblichen Sinn. Es ist sehr einfach, wenn man das Geheimnis 
kennt, und praktisch unmöglich zu gewinnen, wenn man es 
nicht kennt. Der Spectrum jedenfalls kennt es und spielt 
daher sehr gut! 


Die beiden Programme sollten wie folgt eingegeben 
werden: 


Geben Sie “FORT-DATA” ein, 

RUN. Dadurch werden die Arrays aufgebaut, aber außer 
der STOP-Meldung erscheint nichts auf dem Schirm. 
Geben Sie CONT ein, um eine Kopie von FORT-DATA 
zusammen mit seinen Arrays auf Band zu speichern. 
Geben Sie NICHT NEW ein! 

Tippen Sie einfach "FESTUNG" ein und überschreiben da- 
mit die Zeilen von "FORT-DATA. 

Geben Sie NICHT RUN ein! Benutzen Sie GO TO 9088, 
um eine Kopie von FESTUNG zusammen mit den Arrays 
von FORT-DATA abzuspeichern. Diese Kopie läuft auto- 
matisch ab, wenn sie ohne CLEAR geladen wird. Sie 
können das Programm auch sofort starten, jedoch 
NICHT MIT RUN sondern durch GO TO 0. 


Haben Sie irrtümlich RUN (oder CLEAR) beim Eintippen 
von “FESTUNG” eingegeben, so ist das auch kein Bein- 
bruch. Geben Sie einfach das Programm weiter ein, dann: 
Geben Sie GO TO 9080 zum Speichern ein 
Geben Sie LOAD "FORT-DATA” ein 
Laden Sie "FORT-DATA” vom Band, und es läuft ab und 
zeigt die STOP-Meldung wie vorher, 
Jetzt geben Sie MERGE "FESTUNG" ein. 
Schließlich geben Sie GO TO 9008 ein, um eine weitere 
Kopie von “FESTUNG” abzuspeichern - dieses Mal mit 
einwandfreien Arrays. . 
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Warum das alles? Warum werden nicht beide Programme 
zu einem zusammengefaßt? 

Der Grund besteht NICHT darin, daß Speicherplatz ge- 
spart werden soll, obwohl das durch diese Technik ge- 
schieht, Sie sollten sich auch daran erinnern, wenn Sie ein- 
mal längere Programme schreiben. Vielmehr sind manche 
Leute heutzutage so 'computer-gelehrt', daß traditionelle 
Problemlösungsmethoden einfach abgelehnt werden. Mit 
einem ‘Quiz-Programm’ konfrontiert würden sich viele 
Leute nicht die Mühe machen, die Fragen auf die übliche 
Art zu beantworten, sondern einfach das Programm 
BREAKen und im Listing nach den gesuchten Antworten 
schauen. Ich habe viele kommerzielle Quiz-Programme 
gesehen, wo Fragen und Antworten tatsächlich in der 
gleichen Zeile des Programms stehen! 


Die Moral davon ist, daß es nicht mehr länger genügt, die 
Programme 'idiotensicher’ zu machen, sie müssen außer- 
dem auch noch ‘geniesicher’ sein! 


In “FESTUNG" ist die Lösung nicht aus dem Listing ersicht- 
lich, sondern der Schlüssel ist in den Zahlen enthalten, die 
im Array c() abgelegt sind. Bei Anwendung dieser Zwei- 
Programm-Technik ist es möglich, auf dieses Array zuzu- 
greifen, ohne daß sein Inhalt im Listing offenbart wird. 


FESTUNG kann von zwei Spielern oder einem Spieler und 
dem Computer gespielt werden. Die beiden Spieler sind 
der ANGREIFER und der VERTEIDIGER. Das Spielfeld 
stellt ein Schloß dar mit18 Räumen, die mit den Buchstaben 
A bis R markiert sind. Jeder Raum hat 4 Ausgänge, von 
denen jeder zu einem angrenzenden Zimmer führt. (Ein 
Plan des Schlosses wird am Bildschirm gezeigt, um es näher 
zu erklären). Das Ziel eines jeden Spielers ist es, den 
Gegner durch Betreten des Raumes, in dem sich dieser be- 
findet, gefangenzunehmen. 


Es gibt gewisse Beschränkungen bei den Bewegungen der 
beiden Spieler. 
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Der Verteidiger darf den ‘Hauptturm‘, d.h. das Dreieck, 
das durch die Räume A, B und D gebildet wird. nicht ver- 
lassen. 


Der Angreifer darf jeden Raum betreten, aber er kann 
jeden Durchgang nur einmal benutzen (die Wege werden 
vom Schirm gelöscht, sobald sie einmal begangen wurden.) 
Es ist daher möglich, daß der Angreifer das Spiel verspielt, 
weil er in einem Raum gefangen ist, dessen vier Ausgänge 
bereits benutzt worden waren. Der Angreifer muß IMMER 
zuerst ziehen. 


So betrachtet, hat der Verteidiger eine ziemlich langweilige 
Rolle, Er kann nur in den drei Räumen des Hauptturms 
umhergehen und darauf warten, daß der Angreifer in seine 
Reichweite gelangt. Versuchen Sie, ein paar Spiele gegen 
einen Freund zu spielen, (lassen Sie ihn den Verteidiger 
spielen!), und Sie werden ihn vermutlich leicht schlagen. 
Recht bald wird er die Rolle des Angreifers übernehmen 
wollen. Lassen Sie ihn, aber lassen Sie den Computer ver- 
teidigen. Ich kann GARANTIEREN, daß der Computer 
gewinnen wird! 


Die Verteidigung des Computers bei "FESTUNG? ist un- 
schlagbar, und sein Angriff, obwohl abzuwehren, ist sehr 
gut. Um gewinnen zu können, müssen Sie den Verteidiger 
spielen, und Sie müssen entweder eine Menge Glück haben 
oder die gleiche Strategie übernehmen, die der Computer 
bei der Verteidigung anwendet. Ich werde Ihnen NICHT 
erzählen, worin diese Strategie besteht, aber ich habe 
Ihnen bereits gesagt, wo der Schlüssel zu finden ist, und der 
Rest hängt von Ihnen ab. 


ı& DIM ptil&,2): DIM atı3,21 

28 RESTORE : FOR Jjeı TO 18: RE 
AD piläij,iı,Piä 3 

3@ LET aij.,21im=d+pi,j.zersö: LET 
aij,@)=irTz-ptlij,1l1#8 

4+Q NEXT ü 

S@a DIM ci4isI: FOR J=i TO 18 FR 
ERHb zii: NEMT 

e8 DIM Lsi18,d): FOR el TO 15 

RERDb ıL8t(J1: MENT 
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,8,93,24,11i 
“ 


‚ır,14,8, 14,28, 


‚E,35,315,5,8& 
LINE & 


"BBEI","CFÖJL 


"SNGERM","CHLF",P"EIMEO",)UHJPNMV UT 
KHAO" ,"LORR")UMNOR" )UJLNR".OMROR' 


„"NOrFS' 


"BERF,)"RbDEG","'AFHJ" 


"BGIKRV.'RbcH", 
"FORT-DATA" 


n 
A 
E 
a 


78 STOr 


be 
sa DATA 


je) 
> 
q 
je 
ı 
je} 
[23 
S 
8 
ü 


15,15 

= 

RBErFG‘“ 
soeG SRAUE 


zZ o- >» Fa lee H 
wo a gando ba zZ 
Is» area = Dh o 
-p 4 i.aa# ıIu ö 
a =D Fr 70 >» = d-ü- zZ 
ur 3 14 no. It H [14 
ki Ulla [rn 3 14 
Be 2 EZ OU 40 am 
Le En zu Zu go dd > 
JA e’ ie H- Fol - Fi 
u u US U“ - DE de 
ja En Be 2 [1 5 u ae au) 
FR -# 0- Dub Z Zur 
je “+ »“Z FELL FF W 
Au Wr SH IDUME+ U 
Aduü 3 oO 
I er SuAkiLdy DL 
Im oc 
Sur = Sa 
80 £- Zee Wal dem 
ALHZ> Heuer il 
IN“ + SEI-IJR-oRe 
Oz brbrücruüss 


FO F6-R3- Hr MDZU zZ z Hr WG = 
NED GL» SAL -HHZ-HAMRULZL- DEI 
OJdJL Er-UNOSWE Fire) OAHEUHU 
BOLEHÖGTUZZL-UL -MATLIEIN DO 5 JoJ 
Hr! > a 8-0 ® 
WERE B-7INE BEAT 
ARNDT arg 
3 m A Er a BE IE 7} 
+ =» DU en 


"FESTUNG 


FRINT THE 11; 


2a CLS 


"SAT „Bl ı Spieler" = 5 
Bi mL = 

zı18 ET_iS5-INKEWS: IF isgs<"' 1" OR 
ig: "2" THEN_ GO TO “ 
220 ET no=9: I E3 THEN 50 
SyE gas 

220 g SuBs 5 Go SUE ı GO SUB 
= 

Sag E no<r185 THEM SO TO 120e 
SıK o Tu 5508 

SE F nn9<::97 THEN Go TO zua0 
pen} To ag 

1002 RIMT T 21,989; "Angreifer am 
aus ;„ INK = Rs 144; TIME 9:0) 
ı9510 IF msi zer HEN LET mw 
$="'LERTEIGT ; GO TO Foo® 

ıoza LET is Es 

agsd Ir ige OR :&>'r' THEN GO 
Ta ıim20 

1848 LET es='"KEIN DUROHSANG' 
ıg5s5@ FOR j=1 TO 4 

A668 IF m$tlap,y)=CrnRs (CORE i5-53 
zz) THEN 50 TO 11e0 

ı0730 IF msSst[am,.ü} EHRE 4= AND Lt 
3F,Jl=CHRs_ I(C0DE_i 5 LET 
5 =- "DURGHGANG BEN zZ E -4 
ı105G NEXT 

1930 GG SUB 688 

ı109G LET nar=C 

ı1lıc LET nmn$isar 

ıl2zqa FOR JjJ=1 T 

ı13& IF mS$inar T 
HEN LET m$i(inap 


ı1l49 NEXT ü 

1159 IF nar=der THEN LET WS=trnGr 
RIFER' 

1180 LET x=ap: LET y=znap: IF nap 
‚ap THEN LET x=nap: LET y=sar 
ı1l7© FLOT aix,11,aix.8) 

ı1l28 DRAU SUER 1; IHR 4,419, 17-4 
iX, 11,4 ,23 -qix,2] 

.1a20 FRINT AT piap,i2).,Frliaäp,Z27,CH 
RS tap+öd! 

1280 LET ap=nap 

ı2e120 GO ZUR 7© 

1228 IF INKErS$=ig THEN GO TO 128 
[=] 

123590 IF we=''t THEN 50 TO 520 
1248 50 TO Tode 

zZao2 FRINT RAT 21,0; "Verteidiger 
ziehti',; INK 1:/CHRs 145; INK 8," 
3 r 

zgıia LET i&=-INKES 

zZO2G8 IF ig="" OR is=cHhRs 15 THEN 
Go TO zZ010 

zu@M IF ig=-"'a”" OR ig='h" OR ie 
4d' THEN 50 TO zZor70 

zödR LET ege"BLEIEE IHM SEREICGH!'" 
zogs3 Gu SUB 80 " 
zZos50 GO TI ZBeu 

zaora LET ndr=CübE ı5-98 

ze80 IF nap=der THEN GO Ta zaı1® 
zasa IF nar=ap THEN LET sh=-"WERT 
EILIGER' 
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E19 PRINT AT Pide,13.,.Pildp,2);cCH 

Rs 9 idp+bGd) 

zı11® LET dp 

zi22 IF INKETS= 

[o] 

zeı139 IF w$='" THEM GG TD 508 

z1l40 GG TO %7 

zaaa FRINT ""'m:Dbu Bist der RNGSRE 
IFER" "OD: Du bist der VERTEIDIGE 
RR‘ 

Seld LET iS-INKEWws: IF isch 
ND i8<>'d' 'THEN EN TO 5018 
Zgzda LET mMo=üübE i8: RETURHN 

FBae IF wEili="D" AND no=1GG THE 
N LET ws='"Dbu hast" 

Fal®a IF nmo=@7 OR (inpel®O AND wii 
1)='RH'"} THEN LET ws "Ich hHake' 
Bea FRINT AT z1.209:u8 gewonnen 

3 IF no=2 THEN FRIMT "SS 

aza PRINT ' 
15 spaces 
Fade INPUT 'PF= Neues Spiel ;:5= 5 
Lrop "ii 

FOER IF iscirt'a'" AND iscsH'z2" 'THEN 
Ga TO Fodg 

Fass IF ii 
FearTa 5b TO 1850 

ZBOG LET ik=-üöHhrRs (clapıyGde+iziap 
ı 3 

SsGıla FRINT AT Zı.0@, "MEIN ZUG "}i 
%;' tbrvscke ENTER} " 

ZB2Ba IF OIMKEYS<ı:CHF$ 135 THEN G0 

To Zeazg 

SBE@ PRINT AT 21.17; " "ı RE 
rn & zpsces 

zaaa LET i$=CHRsS ICODE ih+n 
Sozsa Gl TO 1953+1(1Q20 AHb nmo=97) 
S5a0 LET g=a+1: IF 9=1 THEN LET 
is=n$isap,INT (RNbsdi+li Go Tm = 
ela 

SEELE GIM aildy: FOR „j=l 7 + 
ZSS20 LET Fu=DÜübE msSsIiap,ü Beh 
IF Fm=--2= THEM LET atjie- 

TI 5208 

IF cipmiecidp)I THEN LET s(ü 
[2-76 1} 

de THEN LET gij)edsı: 


GO ZUB 7E 
$ THEN GO TO zZ1ı8 


[1 


ETF pm<S OR Flii=sd THEN LET at 
=- 19: Sa Tb) Seac 

FOR k=1 TO 4 

FEB IF msirem.,ks 
T gtji=egiji-ıl 

Ag NEST K 


SHAS de THEM LE 


ME=MT O5 
LET Kueqaißl)y 
For ü Ta a: IF @atj):>k THE 


M LET K=31,j 
SBzN MEMT 5 
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SsEd4g@ IF k£=-508 THEM LET vS="WERTE 
a To Fam 
SESEB FOR j=1i TO 4: IF atij)«<>k TH 


SEB50 LET isenslap,.) Sn TO ASıe 
zang ZALUE "FESTUNG" LIME © 

25ap DATA 20, 560,50,128,255,255,8 
Q,SE0, 162,955, 255, 125,28 x = E 
=3=9 STOrF 


Di} 
[2] 
1 
12} 
m 
B 
it 
43 


ANMERKUNGEN ZUM PROGRAMM 


Die durch “FORT-DATA” aufgebauten Arrays sind folgen- 
de: 


p (18,2) : DATA Zeile 1000: Die Koordinaten auf dem 
Schirm für die 18 Räume des Schlosses. 

q(18,2) Die gleichen Bildschirmpositionen, umgewandelt 
in PLOT-Koordinaten. (Array p wird benötigt, um die 
Buchstaben der Zimmerkennzeichnung und die Position 
der Spieler anzuzeigen. Mit Hilfe von Array q werden die 
Verbindungswege gezeichnet (DRAW)). 

c (18) : DATA Zeile 2000: das können Sie selbst heraus- 
finden! 

15(18,4) : DATA Zeile 3000: die “erlaubten Züge" von 
jedem Raum zu Beginn des Spiels. Dieses Array wird 
später in ein anderes übertragen (m$(18,4)), und wenn 
Durchgänge benutzt wurden, werden Elemente von m$ 
mit Sternchen (CHRS$ 42) überschrieben. I$ bleibt unver- 
ändert und bereit fürs nächste Spiel. 


“FESTUNG” beginnt (bei Zeile 100) mit der Definition von 
zwei Graphikzeichen und zwar CHRS 144 für den An- 
greifer und CHRS 145 für den Verteidiger. Die davor 
liegenden Zeilen enthalten vier Unterprogramme zum 
Zeichnen des 'Spielfeldes’ (5 bis 50), Ausgabe einer Fehler- 
meldung (60), Ausdrucken des Angreifers (70) und Aus- 
drucken des Verteidigers (75). 


31 


Die vier Hauptteile des Programms sind: 


1000-1240: Zug Angreifer (Eingabe durch menschlichen 
Spieler 

2000-2140; Zug Verteidiger (Eingabe durch menschlichen 
Spieler) 

8000-8050: Zug Verteidiger (Computer) 

8500-8650: Zug Angreifer (Computer) 


Die vier Zeilen 500 bis 530 kontrollieren die Reihenfolge, 


in der diese Programmteile, (nur zwei davon werden in 
jedem Spiel benötigt), aufgerufen werden. 
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MINENFELD 


Das ist ein scheinbar einfaches Spiel, das nicht die gleiche 
geistige Gewandtheit wie "Festung" erfordert, aber trotz- 
dem ein gewisses Maß an Geschicklichkeit verlangt. 


Es soll versucht werden, mit drei Männern ein Minenfeld zu 
überqueren, je 27 Schritte, wobei die jeweilige Zuglänge 
durch die Augenzahl eines simulierten Würfels festgelegt 
wird. 


Die Minen sind alle deutlich gekennzeichnet (mit roter 
Farbe; sicherer Boden ist grün), und außer den beiden 
nebeneinander liegenden Minen nahe dem Ende, gleich 
weit voneinander entfernt. 


atürlich spielt das Glück eine Rolle, wie in jedem Würfel- 

spiel, aber es erfordert Geschicklichkeit, den richtigen 

ann zum Ziehen auszusuchen, um das Beste aus dem 

jeweiligen ‘Wurf’ zu machen. Stellungsspiel ist alles, sowohl 

im Minenfeld selbst als auch beim Endspiel, wenn Sie 

bereits einen oder zwei Männer hinter die beiden letzten 
inen gebracht haben. 


ANMERKUNGEN ZUM PROGRAMM 


Array a()) istein zweidimensionales Array, wobei die erste 
Dimension die Position von jedem der 3 Männer festhält, 
während die zweite ein Kennzeichen enthält, sobald einer 
der Männer tot ist. 


Dadurch werden Versuche, einen ‘toten’ Mann oder einen 
Mann, der das Minenfeld bereits überquert hat, zu be- 
wegen, als unerlaubte Züge erkannt (Zeile 150). 


Zeile 190 benutzt ebenfalls die zweite Ebene als Parameter 
für FLASH, d.h. das Zeichen für einen lebenden Mann wird 
mit FLASH ®, das Zeichen für einen toten mit FLASH 1aus- 
gegeben. 
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Ich habe in diesem Programm keine selbstdefinierten 
Graphikzeichen verwandt, also lesen Sie “Sternchen” statt 
“Mann”. Es bleibt auch sehr viel Raum für Sie, um das Pro- 
gramm mit Ton, Graphik, realistischen Explosionen, 
Hintergrund usw. auszuschmücken. 


18 EOFDER BE: FRFER 5: INK ww: 5 
[ee = 

za DIM ch 1321: DIM sı5,21: FOR 
J=-1 TO 5: LET aij.1)=1: NEXT 4 

35a PRINT RAT 4,1 FOR Jje1l TO 8 

PRINT INK 4; '-- ; IHR 2; "-".: 
NEXT u 

4@ PRINT INK 2,'-",; IMM dA; tout 
i INK FT;SHR$ 145 

sa FOR j-13 TC 5: PRINT AT 4.1; 
"art: NEXT 4 

E2@g RANDOMIZE 

189 LET x=INT (iRHbsebı+i 


220 PRINT AT 1G,@; "GEHE ";x;" & 
CHRITT";: IF x<>1 THEN PRINT "E" 
ı2@ FRINT AT 18,0; "Welcher Marn 
1-23" 


ı5@ LET i$-=-INKErS$: IF ige.'ıit Dr 
i5.'0' THEN GQ TO 170 

A4G LET m=eUAL is 

ısa IF atm,Z2iI Or alm,1)=Z28 THEN 
50 TO Sa8 

1808 LET pen=zatim,1)+x 

A709 LET PF=epned: IF pnm<izö AND F= 
IMT P OR en=25 THEN LET aim,Zzı=1 
1886 IF pn>2&5 THEN LET pn=25 

1939 FRINT FAT m,aim,d.J z 
RE pn; FLASH aim,„21.'®# 
2323 LET aim.ii=pn 

z19 LET ven LET des: FÜR Jje1 T 
gg 3: IF alj.® THEN LET d=d+i1 
E28 IF a(j,1)=25 THEN LET veRn4+l 
=S58 NEXT u. 

248 IF 4J=5 THEM PRINT FT 19,12%; 
FLASH 1: "ALLE MAENNMER TOT": [zu 3 
TG Fa8 

EEG IF we=5 THEM FRINT AT 19,18% 
FLASH 1; IHR 8: FRFER TIVGRÄATUL 


Arion": GG To as 
SEES LET dg="MANnN": IF ode>1 THEN 
LET 3$=' MRENMER' 
zeEQ IF d+u=5 THEN FRIMT AT 193 
i FLASH 1; "SPIELENDE : "dd" 
ETOETET!': Go TO vom 


278 IF INKErS=-i$ THEN Go TO era 
z5a Go TO 100 
s59G0 FRINT AT zu,1le8,; FLASH 1, "UN 


GSWUELTIGER zUG"': Für J=1 TO rn 
EXT. 

sie FRINT AT 28,0; C8. GO TO 156 
FGG PRINT AT =Z1,2; "Eingabe: rm 
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= weiter 


Fıa 
20 
FzG 
ET= Tode) 


IF INKEYE= 
IF InNkeErgerw" 


GA TD 
SRUE 


RM = 5top" 


rıa 
"MINENFELD'" 


F'" THEN Rum 
THEN STOR 


LINE & 
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NICHT NUR 
EIN 
SPIELZEUG 


RECHNER 
TEXT-VERARBEITUNG 
FAKTURIERUNG 
VERKAUFS-BUCH 
BIORHYTHMUS 


RECHNER 


Mit Hilfe dieses Programms funktioniert Ihr Spectrum 
FAST so gut wie ein billiger Taschenrechner! 


(Der Spectrum besitzt eine Menge eingebaute, komplexe 
mathematische Funktionen, sowie eine sehr große Zahl 
von Speicherplätzen, von denen in diesem Programm kein 
Gebrauch gemacht wird. Wenn Sie also vorhaben, es aus- 
zubauen, um diese Funktionen usw. verwenden zu können 
- bitte...). 


BENUTZUNGSVORSCHRIFTEN 


Das Programm verwendet die gleiche Logik wie die 
meisten Taschenrechner, d.h., Sie geben Rechenoperatio- 
nen genauso ein, wie Sie sie auf Papier schreiben würden, 
und der Bildschirm zeigt entweder Ihre laufende Eingabe 
(nachdem Sie eine numerische Taste gedrückt haben) 
oder das bisherige Ergebnis (nach einem arithmetischen 
Operator). Sie hören außerdem ein irritierendes BEEP bei 
jedem Tastendruck (Warum haben das billige Rechner so 
an sich?). 


Die einzigen arithmetischen Operatoren, die das Pro- 
gramm akzeptiert, sind +, -, *, / und =, Sie brauchen 
weder SYMBOL SHIFT noch den Dezimalpunkt (obwohl 
es nichts ausmacht, wenn Sie sie benutzen). Außerdem: 
Nachdem Sie vermutlich öfter einen Computer als einen 
Taschenrechner verwenden und daher die ENTER-Taste 
leichter mit dem Endergebnis in Verbindungbringen als die 
‘= - Taste’, haben diese beiden Tasten jeweils den gleichen 


Effekt, nämlich die Ausgabe des Ergebnisses. 


Um falsche Eingaben zu korrigieren, kann man entweder 
die "C"-Taste (wie unten beschrieben) oder DELETE, das 
normal funktioniert, verwenden. (Nicht viele Taschen- 
rechner gestatten es, daß Eingaben auf diese Weise ge- 
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löscht werden, aber alle Computer. Ich glaube nicht, daß 
Sie darauf gerne verzichten möchten.) 


Die “C"-Taste hat eine Doppelfunktion: CLEAR (wie beim 
Taschenrechner, nicht wie beim Computer). Ohne SHIFT 
funktioniert es als EINGABE-LOSCH-Taste, wobei das 
laufende Zwischenergebnis erhalten bleibt, und mit SHIFT 
(unter Verwendung von CAPS SHIFT) wird sowohl die 
Eingabe als auch der Speicher gelöscht. 


Überlauffehler bei der Eingabe werden erkannt und ange- 
zeigt, aber Überlauffehler bei den Rechenoperationen 
bringen natürlich das Programm mit Fehleranzeige 6 zum 
Absturz. 


Zeile 2010 bedarf einiger Erklärungen. a$ enthält die 
laufende Eingabe. Drücken Sie einen arithmetischen 
Operator, ohne daß eine aktuelle Eingabe vorhanden ist, 
dann wird die Operation mit dem Zwischenergebnis (r$) 
durchgeführt, Existiert auch kein Zwischenergebnis, dann 
wird das vorhergegangene Endergebnis (q$) verwendet. 


Nur wenn weder eine Eingabe, noch ein Zwischenergeb- 
nis oder ein Endergebnis von einer vorangegangenen 
Operation vorhanden ist, dann wird die Operation zu- 
rückgewiesen. (Verschiedene Taschenrechner arbeiten in 
diesem Punkt anders, aber meiner ist ein sehr billiges 
Modell und funktioniert genau auf diese Weise.) 


i REN RECHNER 
a@ GLS : FRINT TAB 108; "Zx RECH 
MER' 
ı90 LET 
ıS5@G LET 
zea LET 
zS5G „LET 
ı5 
ıo09 LET a 
ı1a190 FRUSE 
ıo290 FOR & 
0356 IF i$=- 
N go TC =Bam 
10408 NEXT K 
98505 IF ig='c' or igh=' 
To Saz2® 
ıa808 IF i$=CHRs 12 AND j<>@ THEN 
LET j=ej-i1: LET a$=sagsi TO u): Go 
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".. LET j=@: LET J=® 
LET i$=-INKErVs 


(EI OR igexgikı THE 


THEN G0 


ro 110% 

L297G IF. i$<s"@" OR iı$:'2' THEM 60 
ra ıa1® 

ıa2g IF i=-351 THEN 50 TO 5000 
1939 LET as=sag4is: LET j=j+1 
ı1122a Goa ZUB 4@a0: FRINT as: BEEF 


‚BL, 

ı119 50 T50 ı01o 

EOBB LET i$=xhik): IF i$g="." THE 
HM GG TO 3088 


2005 ." THEN GO TO. 1010 

2810 IF a$= THEN LET as=er$: 
ag="" THEN LET a&=49$: IF s%$ 

THEN 50 TG ıaas 

=2828 IF r&="" THEN LET r$=as: LE 

T b$=si$: PRINT AT 12,31;b$: BEEP 
‚21,50: o0 TC ıasa 

2038 LET r$=5TR$& (VAL irg+bg+ag 
3 

2048 LET JsLEN r$: GO SUB dass: 

PRINT r$: BEEF „as,as 

2058 LET b$=ig: IF i$=CcHRs 13 TH 

EN LET bS=CHRE 32: LET a$ers: LE 

T waste" 

zas@ FRINT AT 18,01; b8: IF bscHo 

HR$ 52 THEN BEEP .01,56 

2070 co TO 1988 

seos& IF d THEN G0 TO ıoıa 

35218 LET d=1: su TO ıa20 

420& DIM c$i2@-J3). PRINT AT 11,8 
;ic#i: RETURN 

S9388 PRINT AT 15,14; FLASH 1;"FE 

HLER'" 

SaaS LET i$=INKEr$ 

S@1® IF isc>"c“ AND iscer"c" THEN 
so TG saos 

S018 PRINT AT 15,14; " u 

SO20 DIM cs#i321: PRINT AT 11,0:c 
$ 

SO2S5 IF is="0" THEN 50 TO 108 

seso Go TO ıa88 

3080 SAUE "RECHNER" LINE © 


Ir 
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TEXTVERAR- 
BEITUNG 


Wenn Sie über einen Schönschreib-Drucker für die Aus- 
gabe und ZX Mikro-Laufwerke oder konventionelle Dis- 
ketten für die Speicherung verfügen, dann könnten Sie der 
Meinung sein, daß dieses Programm nicht allen Anforde- 
rungen, die an ein Textverarbeitungsprogramm gestellt 
werden, genügt. Wenn Sie jedoch nur eine ‘Minimumkonfi- 
guration’, bestehend aus 16K-Spektrum, ZX Printer und 
Kassettenrecorder haben, dann sollte es mehr als aus- 
reichend sein. 


Es verfügt über die Standardmöglichkeiten eines Text- 
Verarbeitungsprogramms: Eingabe und Anderungsmög- 
lichkeiten (obgleich etwas eingeschränkt - siehe unten), 
Speichermöglichkeit auf Band und die Möglichkeit, den 
Text neu zu laden, wahlweise Rechtsausrichtung (d.h. nach 
dem rechten Blattrand bündig ausrichten), usw. 


Das Programm faßt bis zu fünf Bildschirmseiten Text s 
20 Zeilen), d.h. 100 Zeilen insgesamt. Wenn Sie mehr al 
16K RAM haben, kann das erheblich erweitert werden 
durch Änderung des DIM Befehls in Zeile 5 (w$) und ent- 
sprechenden Änderungen in den Zeilen 1200 und 7030 
(siehe Programmbeschreibung). 


BENUTZUNGSANWEISUNG 


EINGABE (über Tastatur) 


Wenn das Programm gestartet ist, wählen Sie Möglichkeit 
"K" um Text über die Tastatur eingeben zu können, 


Ein blinkender Cursor erscheint in der linken oberen Ecke 
des Bildschirms. Geben Sie Text ein, als ob Sie Schreib- 
- maschine schreiben würden, und wenn Sie die Spalte 25 
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erreichen, wird ein BEEP ‚ertönen und Sie auf das nahe 
Zeilenende hinweisen. Sie können weitertippen, und ein 
Leerraum oder Bindestrich bringt den Cursor automatisch 
auf die nächste Zeile. Wenn Sie weder Leerraum noch 
Bindestrich vor Spalte 32 benutzen, wird automatisch ein 
Bindestrich eingefügt. (Manchmal ist es wünschenswert 
und manchmal nicht. Sie könnten es vorziehen, zurückzu- 
gehen und entweder das gesamte Wort löschen, oder den 
Bindestrich woanders einfügen. Beides ist möglich - siehe 
EDITIEREN). 


Wenn Sie einen neuen Absatz beginnen wollen, so können 
Sie den Cursor mit Hilfe der ENTER-Taste auf die nächste 
Zeile bringen. (Drücken Sie zweimal ENTER, wenn Sie 
eine Leerzeile zwischen zwei Absätzen einfügen wollen.) 
Sie können den neuen Absatz mit einem Leerraum oder 
mit mehreren beginnen, aber wenn Sie den endgültigen 
Text rechts ausgerichtet haben wollen, dann verwenden 
Sie NUR EINEN LEERRAUM. 


Wenn Sie keine 20 Textzeilen einzugeben haben, dann 
geben Sie “." ein, wenn der Cursor am LINKEN Rand 
steht. (d.h. beginnen Sie eine neue Zeile mit einem Punkt.) 


Wenn Sie das tun, oder wenn Sie 20 Zeilen Text einge- 
geben haben, erscheint folgende Meldung: 


P = PRINT ;| = JUSTIFY :C = CONT 
Diese Möglichkeiten funktionieren auf folgende Weise: 


PRINT: Erzeugteine identische Kopie Ihres Textes aufdem 
ZX Printer. Anschließend erscheint die gleiche Meldung 
wieder, so daß Sie so viele Kopien ausdrucken können wie 
Sie wollen. 


JUSTIFY: Richtet Ihren Text auf dem Bildschirm aus. 
Außerdem wird der Text im Speicher des Computers aus- 
gerichtet. Rückkehr zu den 3 Auswahlmöglichkeiten, so 
daß Sie entweder den ausgerichteten Text ausdrucken, 
oder ohne auszudrucken weitermachen können. 
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CONT: Bietet entweder die Möglichkeit, weiter Text ein- 
zugeben oder den gesamten Text auf Band zu speichern. 


EDITIEREN 


Es gibt keinen separaten 'edit-Modus’, wie bei einigen 
Textverarbeitungsprogrammen. Sie können den Text edi- 
tieren, während Sie ihn zusammenstellen (und zu keinem 
anderen Zeitpunkt). Überzeugen Sie sich, daß das Edi- 
tieren beendet ist, bevor Sie das Ende einer Seite er- 
reichen, denn es gibt keine Möglichkeit jemals wieder zu 
diesem Punkt zurückzukommen. Löschen Sie Fehler, die 
Sie sofort bemerken, mit DELETE wie üblich, sonst gehen 
Sie mit der ‘Cursor-Links’-Taste (CAPS SHIFT *5”) mit 
dem Cursor an die entsprechende Stelle und überschrei- 
ben einfach den zu ändernden Text. Führen Sie an- 
schließend den Cursor mit 'Cursor-Rechts’ (CAPS SHIFT 
"8”) wieder zu der aktuellen Textposition. 


WICHTIG 


Wenn Sie eine Zeile oben auf dem Bildschirm geändert 
haben, könnten Sie versucht sein, den Cursor durch 
Drücken der ENTER-Taste schneller zum Ende der Seite 
zu bringen als durch CAPS SHIFT “8”. Denken Sie jedoch 
daran, daß wenn Sie die JUSTIFY Funktion wählen, der 
Computer alle Zeilen, die automatisch beendet wurden, 
ausrichtet. Zeilen jedoch, die durch ENTER beendet 
wurden (was normalerweise Ende des Absatzes oder 
Ende des Textes bedeutet) nicht. Wenn Sie also diese 
Methode der Cursorbewegung wählen, dann sagen Sie da- 
mit dem Computer, daß keine dieser Zeilen ausgerichtet 
werden soll. 


SPEICHERN AUF BAND 


Der Beginn davon wurde bereits weiter oben erklärt. Sie 
werden aufgefordert, einen Dateinamen für Ihren Text 
anzugeben, und der Computer bestätigt, daß der Text tat- 
sächlich unter diesem Dateinamen abgespeichert wurde. 
(Der Spectrum gestattet keine Dateinamen mit mehr als 
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10 Zeichen; wenn Sie also einen längeren Namen eingeben, 
so wird er abgeschnitten, und der Name, der auf dem Bild- 
schirm erscheint, ist. der tatsächliche Name unter dem Ihr 
Text gespeichert ist, und unter:dem er später wieder auf- 
gerufen werden kann). 


Das Speichern des Textes beendet das Programm. Sie 
können das korrekte Abspeichern noch durch Eingabe 
von 

VERIFY n5 DATA w$() überprüfen. 


Sollte VERIFY nicht funktionieren, oder falls Sie aus irgend 
einem Grund eine weitere Kopie benötigen, geben Sie 


GO TO 80% ein. 
LADEN DES TEXTES VOM BAND 


Starten Sie das Programm und drücken Sie "T”. Sie werden 
nach dem entsprechenden Dateinamen gefragt, und der 
Text wird geladen und direkt über den ZX-Printer ausge- 
druckt. Es wird jeweils eine Seite gedruckt, so daß Sie die 
Möglichkeit haben, einzelne Seiten zu wiederholen oder 
weiterzumachen, bis der Text komplett ist, wobei Sie da- 
nach wiederum wählen können, ob sie einen Teil oder den 
gesamten Text wiederholen wollen oder ob das. Pro- 
gramm beendet werden soll. 


ANMERKUNGEN ZUM PROGRAMM 


Falls Sie weitere Teile an das Textverarbeitungsprogramm 
anfügen wollen, hier sind die wichtigsten Abschnitte des 
Programms: 


300- 600: Eingabe (Zeilen 320-400 = Kontrollzeichen) 

: 1000-1210: Druckausgabe und verschiedene Unter- 
menues 

5000-5300: Ausrichtung 

7000-7070: Laden vom Band 

8000-8050: Speichern auf Band 
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Die Variable. x zeigt die ‘Seitennummer’ an (wobei die 
erste Seite die Nummer ® trägt). Wenn Sie also die maxi- 
male Dateigröße erhöhen (bei mehr als 16k), dann achten 
Sie bitte darauf, daß x das neue Maximum zwar erreichen, 
aber nicht überschreiten kann. (Zeilen 1200 und 7030). 


j zeigt die aktuelle Zeile der aktuellen Seite an, | ist die 
aktuelle Spalte und w$ die aktuelle Textdatei. 
Deshalb identifiziert der Ausdruck 


w5 (x 20+j+1,) 
der mehrere Male im Programm vorkommt, ganz genau 
das richtige Element von w$, das der Cursorposition ent- 


spricht. 


ıi REM TEXTWERRAREBEITUNG 
5 BEIM vws(1l200 3 EIH be£i32) 


ia SLS& : FRINT TAB EB: "Zr TEXTU 
ERARBEITUNG" ;AT 5,09; "T=TEXT WOM 
BAND LABEN"’CUK=-TEXTEINGABE LEBE 


R OTASTRATUR' 
ısS IF INkKErs='H 
THEN 50 TO 12m 
28 IF INKEYS='t" OR INKEWSE=|T" 
THEN 50 TO FToas 
285 50. TO 35 
ı90 LET = 
120 IF INKkErg="st OR INKEWE="B" 
THEN G0 TO Saoc 
ıE@a CLS 
zag FOR i=1 TO 19 
218 FOR L=1 TOD 51 
350@ FRINT AT Jh: FLASH 1: ÖUER 
ı1,;,cCHrRE 32 
sıa FAUSE @: LET ig=INKEVE 


vor IMKEWs="R" 


S20 IF i$=-ÜHhHRs 5 AHb 1L:>9 THEM 
LET L=1-2 so TO Bam 
33@ IF i$=-cHR$ 5 ANb j<>o THEN 


ERINT RT 1,0jwgixs@ß+Jj+1l,12%: LET 
je)j-1: LET l=350: Go TO saQ 
3548 IF i$=cHR& @ ANb L«>52 THEN 
go Ta 55&G 
ssa IF i$=cHRs 9 AHb .j«e>19 THEN 
FRIHMT AT 3,341, CHR$. (CODE (mEike® 
za+ij+1,521 1 +15# 1085 it#20+ j+1l,32ı= 
SHR$ 1533: LET J=Jjtl:! LET Lei: © 
no TO 5002 
\ IF Isa AND iß="." THEN LET 
LET j=198: Go TO Sao 
IF i$-CcHhr$ 12 AND L<>2 THEHN 
uwsixs20ß+j+l., Li =schrRs DE: LET 
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.=1-2: 50 TO Sog 

Säs. IF iS=CHRs 12 ANb i<c>a THEM 
FRINT AT 3,B,wS(z#2B+ 441,1): LE 
To g=s3-2: LET 1L=31: LET usixs2@+ij 
+l,l\I=SCHRS 232: LET i=1-2: 80 To 
za 

530 IF i$S=CHRs 13 THEN LET 1-31 

EO TO dla 

490 IF i$<CHRs 22 THEN Go To 51 
[5] 

4ie IF L=351 AND i$<s>ÜHRSs 2 AND 
AS::CHRS 135 THEN LET is$=ÜHRSs ds 
422 BEER CO .G1,208+20*s ii S=CHR$ SI: 
430 LET vsimsaßtrierl,.i+D sis 

Sog FRINT AT 3,8:uw8 s2B+ i+1! 
51G IF msinse2QG+ij+1,5 CHR 15 
THEN FRINT AT J.3L1 HRs Se 

S20 IF L==2S5 THEN BEEPF .S5,50 

SB IF L>25 Anb iig=-cHRs 52 0r 
IS=-CHR$ 45) THEN LET Lese 

4a NEXT .L: BSEEPOCS,.z4 

Ban NEXT 

i020 PRINT FT 21,9: "RF=-PRINT: JeRru 
SRICHTEN:C=eüonNT' 

1618 IF INKEYSE="cC" OR INKEWSE=tD" 
THEN Go TO 11a 

ı220 IF INKErg=-"pe" ok INKEwWS=-'pR" 
THEN GO TO ı10B0 

12239 IF INKEY$="j" CR INKEYE='4" 
THEN GG SuUS 5908: 50 TO 1009 
1249 560 TO ıgı® 


20 PRINT AT 21,8 bs: CoPpw : G0 
Taıeaß 

al2c CLS : FRINT '"'M=Mehr Text:öo 
SAUR” 


1110 IF InNKEvs='m" OR INKEWes="tH" 
THEN GG TO 1200 

1128 IF IHKEws=e'2" OR IMKETS="S 
THEH S0 TO 220008 

GG To ıı1ı0 

IF x=d4 THEN FRINT AT 21,0," 
Flatz mehr, was Jetzt? Fa 
Go To ı1ıcG 

LET x<=xk+l: GO TO 153 

FRINT AT Z21.,.B:bs 

FOR Jexszm+l TO zF2BHee 
LET ag= 
Sals IF asi 
ro Sade 
920 LET z=Gd: FÜR 


= THEN 50 


ro ı ZTER 


SOSE IF akt LI) <>CHRs 32 THEN E20 T 


MEXT L: IF z2e52 


ses@ FÜR k=-lz TO L+i STEF -1: LE 
T agikl=a$ik-1°: NEXT K 

SaSsSS LET iI= 

(323 «> CHARs 32 THEN GO 
To 5100 

Soa2 NEMTOL 

sıaz FRINT AT J-x#+290-1,0j2% 
sıs@a IF a$i(32) =SÜHRs 72 THEM LET 
d=ed+l: Guı TO SO4am 

LET wsij)=as 


NERT O5 

RETURHM 

IMFUT "Dateinsmetins 

IF n$s="' THEN 50 TO Frese 

FRINT AT 15.8, ' Lade das Ban 
";n# 


L-ORb ns baTta wich 
LET ze. 
FOR ü i+l TO »+88@: LFRINT m 


NEXT 
LET +22: IF xelga THEN G 
FOSH 
GLS: FRINT "Eingabe 5 fover 
der Jede andere Taste zZ 


wm weitermachem" 

Tgdm FALSE © 

ads IF INKEWse'zr'" OR INKEWwg=t':' 
THEN GO TO 7055 


FOS50 G TO Fa25 

FOSS CL& : FRINT "AUSGABE BEENDE 
Tom FUER WIEGERHÖLUMGTT NO PL 
Er ENDE" (T'BINGEBEN 


Faso Ir INKErS="R' OR INKEWbetnr" 
THEN Sü TO FOZB 

TO85 IF INKEWE=-'2' OR INKEWge'n' 
THEN 50 TO 9999 

are Gc TO FORO 

ZNFUT "bitte Dateiname eing 
"rn 

IF n$g='"'" THEN GO TO 508060 

IF LEN ns:10 THEN LET nS$en& 
15) 

FRINT "absuespreichert als: " 


LE n$ DATA ws) 
TO 9938 
ERR : SAUE "TUr LINE © 
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FAKTURIE- 
RUNG (48K)/ 
VERKAUFS- 
BUCH (48K) 


Sollten Sie ein eigenes Geschäft besitzen, so muß ich Ihnen 
sicher nicht lange erklären, wie ungeheuer nützlich ein 
eigener Computer sein kann, um z.B. Buchhaltung, Lager- 
verwaltung u.ä. mit einem Minimum an Zeitaufwand zu 
erledigen. 


Wenn nicht, dann sind Sie vielleicht versucht, die nächsten 
beiden Programme zu überblättern oder gleich zum näch- 
sten Kapitel mit Spielen weiterzuspringen, Aber warten Sie 
eine Sekunde! Haben Sie jemals ein Programm geschrieben 
und Kopien davon an Ihre Freunde verkauft, oder ein 
Listing an eins von den Computermagazinen geschickt? Es 
könnte sein, daß Sie schon als ‘Software-Produzent' im 
Geschäft sind, und wenn Sie ein unangenehmes Zusam- 
mentreffen mit dem Finanzamt. vermeiden wollen, sollten 
Sie allmählich anfangen, Unterlagen über Ihre sämtlichen 
Transaktionen aufzubewahren. 


Diese beiden Programme bilden zusammen die VER- 
KAUFsseite von etwas, das gewöhnlich als Finanzbuch- 
haltungspaket bezeichnet wird. Damit sind mehrere Pro- 
gramme gemeint, die alle verschiedenen Tätigkeitsberei- 
chen dienen, jedoch aufeinander aufbauen, die gleichen 
Daten benutzen und zusammen einen kompletten Satz 
Konten verwalten. 


FAKTURIERUNG erstellt eine richtige Rechnung, die Sie 
an Ihre Kunden weitergeben können, und hält außerdem 


48 


jede Transaktion in einem RECHNUNGS-AUSGANGS- 
BUCHFest. Es handelt sich dabei einfach umeine Liste Ihrer, 
Verkäufe, bestehend aus dem Datum, dem Kunden- 
namen und dem Betrag. Die Endsumme des Rechnungs- 
Ausgangsbuches entspricht den Gesamteinnahmen Ihres 
Geschäftes im entsprechenden Zeitraum. 


Natürlich, wenn Sie nicht ausschließlich Barzahlungs- 
geschäfte abwickeln, so bedeutet die Tatsache, daß Sie 
Rechnungen ausgestellt haben, noch nicht, daß alle Ihre 
Kunden auch bezahlen - rechtzeitig und auch vollständig. 
Die Kontrolle der DEBITOREN ist einer der wichtigsten 
Teile des Geschäftes, und man muß nicht unbedingt die 
Größe eines multinationalen Konzerns haben, um die Kon- 
trolle darüber zu verlieren. Und hier kommt VERKAUFS- 
BUCH ins Spiel. 


Dieses Programm verwendet die Daten des Rechnungs- 
Ausgangsbuches (wie berechnet in FAKTURIERUNG und 
in beiden Programmen als “RECHNUNG” bezeichnet), 
um jedes einzelne Kundenkonto aufzulisten. Alle erstellten 
Rechnungen sind in einer Spalte aufgeführt, alle einge- 
gangenen Zahlungen in einer anderen. Wenn weitere Zah- 
lungen eingegangen sein sollten, so können Sie sie auf dem 
entsprechenden Kontenblatt eintragen. (Kontenblatt ist 
ein Prä-Computer-Ausdruck, der immer noch verwendet 
wird, und bedeutet die Aufzeichnung aller Bewegungen auf 
einem Konto). Die Endsummen der Rechnungen, Zahlun- 
gen und offenen Posten werden angezeigt. Sie können, 
wenn Sie wollen, ‘Hard Copies’ von den Kontenblättern 
anfertigen, sei es zu Ihrer eigenen Information. oder als 
Mahnungen, die an die Kunden verschickt werden. 


HINWEISE FÜR DIE BENUTZUNG 
FAKTURIERUNG 


Nachdem Sie das Programm geladen haben, erscheint als 
erstes ein dreiteiliges Menü auf dem Bildschirm (siehe 
Zeile 110). Wir betrachten diese 3 Wahlmöglichkeiten 
nacheinander: 
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1: Rechnung erstellen 


Hierdurch wird eine Liste aller Ihrer Kunden ausgegeben, 
mit einer Codenummer neben jedem einzelnen. Am Ende 
der Liste, mit Nummer ®, steht "NEUER KUNDE”, (Wenn 
Sie das Programm zum ersten Mal laufen lassen, wird das 
der einzige Punkt auf der Liste sein). Wenn Sie bereits eine 
Menge Kunden haben, werden Sie die Fähigkeit des Spec- 
trum zum SScrollen’ einsetzen müssen, um ans Ende der 
Liste zu gelangen. 


Geben Sie die benötigte Kundennummer ein. Nummern 
außerhalb des Nummernkreises werden nicht ange- 
nommen. Geben Sie Nummer “®” ein, dann werden Sie 
gebeten, die Adresse des Kunden einzugeben (insgesamt 
4 Zeilen, wobei Zeile 1 natürlich den Namen des Kunden 
oder den seines Geschäfts enthalten sollte.) 


Dann wird die Rechnung auf dem Bildschirm aufgebaut. 
Standardangaben, wie z.B. Ihr Name und Ihre Adresse 
werden automatisch ausgegeben; sie brauchen nur einzu- 
geben: 


a) Das Datum 


b) Den 'Text’ (d.h., für welche Waren bzw. Dienstleistun- 
gen die Rechnung erstellt wird. Fassen Sie sich kurz, weil 
höchstens 22 Zeilen Text gedruckt werden). 


c) Den Betrag. 


Wenn mehr als ein Posten auf die Rechnung gesetzt 
werden soll, können Sie mehrere Texte und Beträge ein- 
geben, (aber nicht zu viele, sonst verschwindet der Rech- 
nungskopf am oberen Bildschirmrand, bevor die Rechnung 
abgeschlossen ist.) 


Sie können die Rechnung dann entweder mit COPY aus- 


drucken, oder löschen, falls Sie einen Fehler gemacht 
haben. 
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2: Rechnungen auflisten 


Sie brauchen überhaupt nichts zu tun, wenn Sie diese Mög- 
lichkeit wählen. Der Computer gibt das Rechnungs-Aus- 
gangsbuch direkt über den ZX Printer aus. 


3: SAVE 


Sie brauchen diese Möglichkeit nicht nach jeder Rechnung 
zu wählen, oder auch überhaupt nicht, wenn Sie bei dem 
gegenwärtigen Lauf keine Rechnung erstellt haben. Sie 
MÜSSEN sie jedoch am Ende jedes Laufes wählen, bei 
dem Rechnungen erstellt WURDEN. 


Es müssen zwei Dinge abgespeichert werden: 


a) Die Rechnungsliste/Rechnungsausgangsbuch, welche 
als Datei unter dem Dateinamen “RECHNUNG” ge- 
speichert wird. 


b) Das Programm selbst, durch den letzten Fakturierungs- 
lauf auf den neuesten Stand gebracht, bereit für den 
nächsten Lauf. 


Wichtig: Die Wahlmöglichkeiten 1 und 2 kehren nach 
Beendigung zum Hauptmenü zurück, Nummer 3 beendet 
das Programm. Um es nach der Beendigung oder nach 
einem BREAK wieder zu starten, verwenden Sie bitte GO 
TO 160 (Nicht RUNI), 


ı9 DIM agtlima,d.z20) 
za LET nc=d: LET in=a 
30 DIM bE(523 

4a DIM -51100,2,10) 


ala FRINT AT 5,2;'1. Rechnung = 
Be i 


rstelklaen” zz. Rechnungen aurfl 
sten'ttt'3. SPRUE ü 

ız2@ LET i$=INKEWS: IF ı5<«"1" Or 
is," THEM GO TO 120 


ıza Go TO “AL ı5+1000 

sa® DATA "RGENTUR SOOFERATIONM" 
S18 DATA "FRINZENSTRASSE 43" 
s20 DATA "Scgza MUENCHEN 19° 
e324 BAT “aneereT enet = 
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1098 BORDER 5: PAFER 8: CLS 
ı810 FOR J=1 TO NG 

1a20 FRINT .J:TAB 45R810,1) 

ıa26 NE=T .J 

ıaa4a FRINT SB: TAB 4; "NEUER KUNDE* 
8950 INPUT "Kundennummer? "it 
1880 IF t<a OR t<>IMT t THEN GO 
ra 109508 

ıu072 IF t<::2 THEN G5 TO 1100 
1080 LET ncosneel: FÜR je1 TO 4: 
INPWT AT j*2,8, ("Aanzschriftszeile 
"aa; gaßine, ui: NEMT JS 

1828 LET nme 

1192 LET insin+l 


1112 CLE . RESTORE : FOR jed Tü 
5: RERDb t8&: FRINT AT ij, i32-LEN t 
sırZits: NEXT ji PRINT : FRINT." 


RECHNUNG WMo"zin: 
11220 INPUT "Datum ı LET cH#t 
in,1lJ=t$s: LET c ‚2izsasit,1) 
1150 FRINT TAB 51ı1-LEN tsit8# 

i114®@ FOR j=e1=1 TO 4: FRINT asit, 
33: NEXT PRINT °": LET ipe® 
11259 INPUT. "text ";tg: IF LEN t&$ 
»22 THEN LET tS$etst TO 281 

11680 FRINT tt; 

ı17© INFUT '"Freis "ir: 60 SUR 58 
ag: IF x THREN Gn To 110 

ı15G FRINT TAB Z3;ms: LET ip=sipf+ 


Pr 
i1=6 INFUT "weitere Fozitionen ( 
„JenıT "its 
22089 IF t=' 
TG ı150 
ıi21@ IF t$='n‘" ÖR t&E='N" 'THEN 50 
To 2270 

iz22 GO TO 1120 

122 FRINT AT 298,8, "TOTAL"; : LET 
P=Ir: GO SUB Soce 

1249 FRINT TAE 290% 

1250 FRINT AT 21,9:'C=- GSOPWw ıKe 
LOSESCHEH'" 

Ii26989 IF InkEwge'oc Sr INKEWSE- 
THEN PRINT AT zZ1I,@; bs: COrW 
ET c#$lin,Bimms: oo Ta 108 
1270 IF INKEY&='2'" OR INKEWSetX" 
THEN GO TO ı11ı& 

22850 Go TO 1260 

zaaea CLS .: LET R=0: FOR j=1l TO ıi 
na 

zoıa FOR k=1 TO 5 

Ees522 LPRINT EL. Kkl, 

z820 NEXT KK: LFRINT.: LET F=er+un 
I c#11,5 

z848 MENT ü 

Z3a598 LFRINT : LFRINT " TOTAL "27T 
Ab zu: 

z0E98 Go SsJE Soacaa: LPRINT mS 
z2eo79 Go TO 1008 
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it SR %5='.|" THEN GO 


zeaagd EGORDER 4: PRFER A: CL5S 

sS@le FRINT "SAUEN Sie zuerst die 
Rechnunas- Li2zte fuer das WERKA 
UFSSUCH Fro-aramm' 

OEM SAUE "RECHNUNG“ Data Gt) 


50 CLE : FRINT "SRAWEN Sie jetz 
1 das Jesante Fro- aranmnn fuer di 
e naechste Verwen- Jung alz Fakt 


Wrierprasramm'" 

Zz@a40 SrRUE "FARTURA'" LINE 106 
sesa 50 TO 9339 

E09 LET x=0: DIM m$(i9): LET m&= 
STR$ FR 

salz IF mS(&)=chRs 32 THEN LET m 


$=-CHR$ Ze4ımgi TO 7ı: 50 TO Sal®s 
Eg29 FOR j=1 T0 5 

Ss@3590 IF m$ijl="." THEN GO TO 595 
= 


Sö4G NENNT J 

5058 IF j=3 THEN LET mSengi4 TO 
ER Sa: 1 200 

SsQaB& IF j=7 THEN LET msSsenHtz2 TO 
ya‘ 


SOF7O IF mstä)c>"." THEM LET x=1 
SQ059 RETURN 

3099 CLEAR : SAUE "PFAKTURA" LINE 
= 
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VERKAUFS- 
BUCH 


Dieses Programm läuft nicht menügesteuert, sondern der 
Reihenfolge nach ab, Folgen Sie lediglich den Anweisungen, 
so wie sie erscheinen. 


Laden Sie zuerst das letzte "RECHNUNG”-Band. Das 
erste Kontenblatt wird dann am Schirm ausgegeben. Beim 
ersten Mal, wenn Sie das Programm laufen lassen, bleibt die 
"ZAHLUNGEN!"-Spalte natürlich leer. 


Sie werden gefragt, ob Sie eine Zahlung verbuchen (d.h. 
eingeben - noch mehr prä-Computer Terminologie) 
wollen. Wenn ja, müssen Sie das Datum (der Zahlung) und 
den Betrageintippen, und die Frage wird wiederholt, damit 
Sie weitere Zahlungen verbuchen können, wenn nötig. 
Wenn Sie fertig sind, wird die Gesamtsumme gebildet, und 
Sie können entweder das Kontenblatt mit dem ZX-Printer 
ausdrucken lassen, oder zum nächsten Konto weiter- 
gehen. 


Am Ende des Laufes werden die gesamten Außenstände 
(alle Konten) angezeigt, und Sie werden aufgefordert, eine 
neue Kopie des Programms für den nächsten Lauf abzu- 
speichern. (Es ist nicht unbedingt nötig, wenn Sie keine 
neuen Zahlungen verbucht haben, aber eine gute Ange- 
wohnheit, weil man oft am Ende eines Laufes vergessen 
hat, ob man nun Zahlungen verbucht hat oder nicht!). 


WICHTIG: Benutzen Sie immer die neueste Kopie von 
jedem der Programme, wenn Sie einen ‘Lauf durchführen. 
Das ‘Hauptprogramm’ selbst enthält keine Daten, aber 
jedesmal, wenn Sie eine Kopie davon SAVEn, dann werden 
die aktuellen Daten mit dem Programm zusammen abge- 
speichert. 
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ı REM VERKAUFSBUCH 
ıi@ DIM FS(102,5,100 
za LET np=& 
Sa DIM bs(352% 
40 LET tos=G 
ıa9 EÜRDER &: FHRPER &: INK ws: © 
LS 
118 FRINT "Bitte Laden Sie Ihr 
RECHMUNG Band" 
128 LomAb "RECHNUNG" DATA CH) 
s0@ FÜR q=1 TO las: CL5 
SsıD LET a$=-c#sia.B 
S20 LET -8512,21='x" 
E3Q IF a$=-kbsi TO 16) THEN LET 4 
=1@0: GO TO 990 
54 IF af='"x"'+bgi TO 9ı THEN G0 
TO 3a0 
sS5s@ FRINT TAB 12,2% 
SeEeB® FRINT "DATUM"; TAB 18; "RECHN 
WNGENU;TAB 21, "ZAHLUNGEN" 
ST@a LET t=WAL c8614,%51 
sau FRINT c$ia,. 11,281, 
5386 FOR k=1 TO 198 
5a IF zhi(k,Zıcırag THEN GO TO 5 
4 
E1@ LET t=t4URAL cHikh, 
S2® FRINT c$ik,. 1; cHi 
e39 LET IK,EI=':" 
@4@ IF c$HIKk,Eie'x'4bsi TO 9 TH 
EN GO TO SEC 
[ee 


=, 
Ka 


=. 


[it 
3 


ei TO 10ı THEM 


-2BD LET ti1= LI4+UAL FSiIiKR,S 


748 NEXT E 

EA INPUT "UollLen Sie wine Zahl 
ung Ein- geben (JrMIVCH 

7568 IF 1t$='n" Or t# 'nN' THEN Gö 
To 8so 

Fra IF t$g="j" OR t$='"J" THEN GO 
To FTzaa 

7850 50 TO FED 

798 LET np=np+l: INPUT "Datum " 
psinr,i): PRINT FS$S(nP.13); 

sa® INPUT "Betrag '";p: GO SUB 5 
ao: IF x: THEN Go TO 580 

s1i® FRINT TAB zZ0;m$: LET PSsine, 
sems: LET P&$inp,23=38 

z=20 LET tl=t1l1+-UAl m& 

sza Gb TO 7580 

8520 FRINT "TOTRAL";TAB 10; 

sea LET p=t: GO 5uUB Eos 

578 PRINT n3; TAB 20%, 

580 LET f=t1: G0 Zus Saoo 
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=30 PRINT ms 


908 LET F=LLINT. (t#=1001 +. 11 -iIN 
T st1s1l00)1 +. 11 r 100: GO SUB Scaao 
31&© FRINT "ÖOFFEN:";TAB 128;m$E: L 


ET toz=z=to=+VAL mE 

20 PRINT AT 21,23 'Cecoew; N-NAE 
HMHETE ZAHLUNG" 

20 IF INKEWS$Se'"c” Or INKEWS 
THEN FRINT AT 21,8: 68: Cor“ 
oo TO 920 

S48 IF INKErgG="'n" OR INKEYSe'NM" 
THEN Go TO 93990 

s529 GO TUI 9r© 

SC NENNT 4q 

ag2 EBORDER 4: PRPER d: GLS 

1810 LET p=stos2: G0 SUB E000 
1824 FRINT "GESAMT AUSSENSTAENDE 
ı "m" 

1239 FRINT "leirt SHUEn fuer nase 
chste ber- wendung saı2 UWERKRUFS 
-Progsramm' 

1948 SAUE "UERKAUF" LINE 30: 60 
TU 3339 

Faoda REH Fuegen Sie hier das 


ZASH-Untererogramm ein tsiehe 
Text] 

sadca CLEAR : SAUE "VERKAUF" LINE 
[2 


ANMERKUNGEN ZUM PROGRAMM 


Beachten Sie, daß keines der beiden Programme das sehr 
wichtige Unterprogramm ab Zeile 5000 enthält, Keine 
Sorge, es kostet Sie nichts extra. Es ist ein so unglaublich 
nützliches Unterprogramm, das wahrscheinlich in allen 
Ihren Finanzprogrammen enthalten sein wird, daß wir es 
auf Seite 94 separat aufgelistet haben. 


Falls Sie, wie jeder normale Leser, dieses Buch von hinten 
angefangen haben, dann haben Sie vermutlich schon eine 
Kopie von “CASH” auf Band. In dem Fall MERGEn Sie es 
einfach in beide Programme. Andernfalls SAVEn Sie, was 
Sie bisher eingegeben haben, geben NEW ein, tippen 
"CASH" ein, SAVEn es und dann laden Sie es mit MERGE in 
das laufende Programm. Tippen Sie das Unterprogramm 
nicht einfach am Ende jedes Programms ein, denn das 
würde eine Menge zusätzlicher Arbeit bedeuten, und 
außerdem hätten Sie immer noch keine separate Kopie für 
spätere Verwendungen. 


56 


Wahrscheinlich haben Sie mit diesen Programmen das 
Problem, daß der Fernsehschirm einfach zu klein für die 
Menge der Daten ist, die Sie ausgeben müssen. Rechnun- 
gen mit mehr als 6 Zeilen Text oder Kontenblätter mit 
mehr als-18 Transaktionen zum Beispiel. 


Sollten Sie ein sehr kleines Geschäft haben, dann wird das 
nicht vorkommen, passiert es Ihnen aber doch, dann ist die 
einfachste Abhilfe, auf die Anzeige am Bildschirm zu ver- 
zichten - außer für die Menü-Auswahl und INPUT-Zeilen. 
Ändern Sie alle anderen PRINT Befehle in LPRINT, und 
erstellen Sie Rechnungen und Kontenblätter direkt über 
den Drucker. (Löschen Sie die COPY-Anweisungen). 


Die hauptsächlich benutzten Dateien sind folgende: 


a$(100,4,20) : Namen und Adreßdatei :nur für FAKTU- 
RIERUNG 

p$(100,3,10) : Zahlungen: nur VERKAUFS-BUCH 

c$ (100,3,10) : Rechnungen: beide Programme 


Die drei Elemente sowohl von c$ und p$ (2. Dimen- 
sion) sind: 


c$(j1) : Datum 

c$(j2) : Kopie der Adreßzeile 1 (Name) aus der 
Kundendatei. 

c$(j,3) : Betrag 


“in’ ist ein Variablenname (für Rechnungsnummer) und 
sollte nicht mit dem Spectrum Schlüsselwort ‘IN’ ver- 
wechselt werden. 


Die DATA-Zeilen (500 bis 530) des Programms “FAKTU- 


RIERUNG” sollten natürlich Ihren eigenen Namen und Ihre 
Anschrift enthalten. 
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BIO- 
RHYTHMUS 


Was, so könnten Sie fragen, tut ein Programm wie "BIO- 
RHYTHMUS” im Kapitel mit den ernsthaften Anwen- 
dungen, zusammen mit so ernsthaften Programmen wie 
“Fakturierung’ und “Verkaufs-Buch‘? 


Wir wollen uns nicht mit der strittigen Frage befassen, ob 
das Studium der Biorhythmen eine ernsthafte Angelegen- 
heit oder nur ein harmloser Spaß ist. 


Es genügt darauf hinzuweisen, daß 'ERNSTHAFTE' 
Anwendung nicht unbedingt 'GESCHÄFTLICHE’ Anwen- 
dung bedeuten muß, und es gibt ein weites Spektrum von 
Anwendungen für Ihren Spectrum, die nicht unbedingt 
entweder Geschäft oder Spiele sein müssen! 


Das Programm zeichnet drei separate ‘Biokurven’ (kör- 
perliche-, seelische- und geistige Zyklen) für eine Periode 
von ungefähr 4 Monaten von einem beliebigen, von Ihnen 
zu bestimmenden Datum ab. 


Die eigentliche Zeichenroutine ist auf die drei Zeilen 
220-240 begrenzt. Der gesamte Rest befaßt sich mit solch 
weltlichen Dingen wie: 


Eingaben durch den Benutzer :Zeilen 30-90 

Zeichnen der Basislinien :Zeile 210 

Einfügen der Skalierung :Zeilen 300-330. Jeder Strich auf 
der Basislinie zeigt den ersten eines Monats an. Daher 
kommt die geringe Ungleichheit der Abschnitte. 


Überprüfung der Eingaben :Zeilen 1000-1100. Nicht 
weniger als 11 Zeilen, um sicherzugehen, daß Sie ein gülti- 
ges Datum eingegeben haben! Diese Routine kann stück- 
weise für andere Programme verwendet werden. Zum 
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Beispiel gestatten beide Programme, sowohl “Fakturie- 
rung” als auch “Rechnungs-Buch” jede beliebige Eingabe bei 
der Anfrage nach dem Datum. Sie könnten dort diese 
Datums-Prüfroutine einfügen, oder bei anderen Program- 
men. 


Berechnung der Anzahl der Tage zwischen Ihrem einge- 
gebenen Datum und einem hypothetischen Basisjahr 
(Jahr 8): Zeilen 1500-1550. Das eigentliche Basisdatum ist 
unwichtig, da das Programm lediglich die Anzahl der Tage 
zwischen den beiden eingegebenen Daten berechnen 
muß. 


BIOKRURUEN 


gekuren am : 12.07.37 
heutiges Datum:21.98.50 
N rperlich 


ıiı REM Bicrrhuthmus 

ı0 BÜRDER 8: FAPER 6: INK 9: BE 
RIGHT 1: ELS 

za LET m4=-"3903232 3723525" 

38 PRINT TAB 11: "EIORHYTHMUS'"" 
‚rrereBßitte Dateneingabe wie roLdg 
tt: TAB 12; "DBEB.MM.AsI" 

48 INPUT "geben Sie Ihren Gebu 
rtztag ein';d# 

so GO SUB 1890: IF x THEN GO T 
oo 40 

sa LET b=n: LET b8=JS 

7@& INPUT "Bitte heutigss Datum 
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eingeben "ds 


5a GO SUB 1008: IF x THEN GO T, 


oo ?@ 

0 LET nen-b: IF n<9 THEN G0 5 
JE ZUG: BO TO TO 

1989 DIM ns13.121: LET nmsidiji="ko 
erperilich": LET ns(21='"'seetisch' 

LET ns(353 ="geistia" 


i11@ DIM kLi3): DIM ci 

ı28 FOR j=-1 TO = 

159 LET bij}je=e18+5xJ 

148 LET ztijlisn-kijI#INT (nzbtj) 
’ 

159 NENNT 

za9 CLS : FRINT TAB 9, "BIOKURUE 
Mt ttgeboren am "5; bE.,"heutig 


=> Datum:'; 
zig FOR u SS: FLOT 8, ir45-2 
a: DRAU 255,©: FRINT INK J;MtT 3* 
e-2,Zin#i,) NEXT 

E22 FÜR j=1 TG 3. FOR k=a TO 25 
= 

238 PLOT INK J;5K,SIN (tk+iäeciij 
III #PISbLIIIT REOHLLL- j) FdS-25 1 
84 NMEXT kK: NEXT üj 

S3Q8 FOR j=-Ga TO 255 

310 LET d +. 

320 IF d>COobE m#imI-z& THEN LET 
d=.5: FOR k=1 TO 35: PLOT i,Kkr4S 
-30: DRALU &,8: NEXT K: LET mem+iL 

IF m>12 THEM LET m=1ı 

SgAa MEXT un 

74a STüor 

1889 LET x=8:. FRINT AT 35,108; " 

: REM 12 Leerrseume 

219 IF LEN dsc<c>S THEN SO TO zao0 
[al 

1820 IF dsizı ce". OR dysisı cr". 
THEN GO TO 22809 

19504 FOR „=1 TO 7 STEP 3 

a.gac IF dslsjy< "Oo" OR dsın)»+"at © 
Ro dsiıj+l)<"a" OR d$ij+1l)1>:'"2" THE 
N GG TO zoec 

1850 NEXT ü 

1950 LET v=UAL dst7 TO I: LET n= 
URL dsia TO 53: LET d=URL dsı TO 
=ı 

1072 IF We OR d=B OR n=B OR m>i 
= THEN GO TO z300 

1850G LET 1=8: IF y-4=INT urd THE 
N LET i=1 

1898 LET n=CODbE ms$(m) -Z@+im=2 AN 
BE iL=1) 

11998 IF drn THEN G0 TO zeam 

ı53924 LET n=0 

ı51@ FOR i=1 TO m-ı 

15224 LET men+CöbE mns(Jı das 

Ii520 NEXT ü 

41548 IF i\=1 AND. n>53 THEN LET n= 
n+1 
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18552 LET nen#+d+INT 1i3865. 
I: RETURN 

zaaga LET x=1 

zO815 FRINT INK 2, FLASH 
18; "ungueltiges Datum'’;“w 
S9aR SAUE "BIO" LINE 9 


eS5# (4-1) 


ı;HT 15. 
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DAS, 
GEDACHTNIS 


DAS_ 
GEDÄCHTNIS 


Die Programme in diesem Kapitel möchten einen Teil des 
RAM im Speicher des Spectrums untersuchen. 


Sie werden aus Kapitel 24 des Spectrum-Handbuches 
wissen, daß das RAM weit davon entfernt ist, leer zu sein, 
sogar dann, wenn der Computer zum erstenmal einge- 
schaltet wird, Wenn Sie einen 16K Spectrum besitzen, sind 
Sie vielleicht entsetzt, wenn Sie entdecken, daß rund 6K 
durch den Bildschirmspeicher und ein weiteres K durch 
den Attributspeicher belegt sind und Ihnen somit gerade 
noch 9K für Ihre Programme bleiben. 


Der Bereich des RAM jedoch, auf den ich mich konzentrie- 
ren möchte, IST frei, wenn Sie den Rechner einschalten, 
und zwar handelt es sich um den Bereich zwischen PROG 
und E-LINE, d.h. der Bereich, in dem Ihr Programm und die 
Variablen abgespeichert werden. 


Um die Grenzen dieses Bereichs zu finden, geben Sie die 
folgenden drei Zeilen als DIREKTBEFEHLE (nicht als Pro- 
gramm) ein. 


Um PROG zu finden, die Adresse zu Beginn des Pro- 
grammbereichs: 


PRINT PEEK 23635 +256 PEEK + 23636 


Um VARS, die Adresse zwischen dem Programm- und 
dem Variablenbereich zu finden: 


PRINT PEEK 23627 +256 PEEK +23628 
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Um E-LINE, die Endadresse des Variablenbereichs zu 
finden: 


PRINT PEEK 23641 +256 PEEK +23642 


Sie werden feststellen, daß die beiden ersten Befehle zum 
gleichen Ergebnis führen, und daß der dritte ein Resultat 
erzielt, das nur um 1 höher ist (weil der Variablenbereich 
immer ein Byte 80h (CHR$ 118) enthält, das als Endkenn- 
zeichen für diesen Bereich dient). 


Das würde bedeuten, daß das Programm und seine Va- 
riablen insgesamt nur 1 Byte Speicherplatz belegen. Eigent- 
lich nicht erstaunlich, denn zu diesem Zeitpunkt haben Sie 
überhaupt noch kein Programm eingegeben! 


letzt geben Sie die gleichen drei Zeilen ein, dieses Mal 
jedoch als Programm (d.h. mit Zeilennummern, sagen wir 
10, 20 und 30) und dann RUN. 


Dieses Mal bleibt zwar PROG gleich, aber VARS und 
E-LINE liegen beide um 123 Bytes höher, das bedeutet, daß 
Ihr kurzes Drei-Zeilen-Programm 123 Bytes im RAM be- 
legt. E-LINE liegt immer noch um nur ein Byte oberhalb 
von VARS, denn Ihr Programm verwendet keine Variablen. 


Schließlich ändern Sie die drei Programmzellen noch, 
indem Sie PRINT durch LET a=, LET b= und LET c= 
ersetzen und eine vierte Zeile, 


40 PRINT ab’c 


eingeben. Dadurch wird die Programmlänge auf 140 Bytes 
erhöht und der Variablenbereich auf 13 Bytes. 


Offensichtlich enthält der Variablenbereich jetzt Werte für 
a, b und c, und diese belegen die 13 Bytes, so werden Sie 
jetzt denken. Total falsch! 


Schauen Sie noch einmal auf die dritte Zeile Ihres Pro- 
gramms. Der Ausdruck rechts vom Gleichheitszeichen 
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(PEEK die Systemvariable E-LINE) wird zuerst bestimmt, 
und dann wird die Variable c auf den gleichen Wert ge- 
setzt. Deshalb finden Sie zu diesem Zeitpunkt das Ende 
des Variablenbereichs, der nur a enthält, b und c wurden 
noch nicht bestimmt. 


Stärten Sie das Programm erneut, und wennes beendetist, 
geben Sie GO TO Dein (um es wieder zu starten ohne die 
Variablen zu löschen), Jetzt werden Sie die echte Adresse 
von E-LINE erhalten, 6 Bytes höher als zuvor. Der Grund 
dafür ist folgender: Der Variablenbereich belegt insgesamt 
19 Bytes, pro Variable 6, und eines für CHR$ 118, 


Nun, jetzt wissen Sie, WO der Spectrum Ihr Programm 
und die Variablen abspeichert - geben wir einige richtige 
Programme ein und finden heraus, WAS er genau spei- 
chert. 
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READER I 


Wir wissen, wo im Speicher des Spectrum ein Programm 
gespeichert ist,im Bereich zwischen PROG und VARS, und 
wir können die echten Adressen von PROG und VARS 
finden, indem wir die entsprechenden Systemvariablen 
ein-PEEKen. Wenn wir also alle Adressen zwischen PROG 
und VARS PEEKen, dann sollten wir in der Lage sein, unser 
Programm zu finden. 


READER 1 ist ein allgemeines Allzweck-"PEEK-Programm', 
das, wenn ihm eine Start- und Endadresse gegeben wird (in 
Zeilen 10 und 15), alle Adressen dazwischen liest. Nun ist 
der Programmbereich ein logischer Ort, um mit PEEK zu 
esen, weil wir zumindestens wissen, was wir hier zu finden 
erwarten. Sie würden doch nach allem, was Sie bisher 
erfahren haben, erwarten, daß das Programm in genau der 
gleichen Weise gespeichert ist, wie es eingegeben wurde. 
(Oder etwa nicht?) 


Starten Sie das Programm und schauen Sie, was passiert, 
(Alle Programme in diesem Kapitel arbeiten mitsich selbst, 
außer RENUMBER, oder mit irgend einem anderen Pro- 
gramm, das gleichzeitig mit ihnen im Speicher ist. Wenn es 
hnen also langweilig wird, READER 1 zu 'lesen', können Sie 
ein anderes Frogramm mit MERGE dazuladen und sich 
auch durch dieses lesen. Achtung, daß keine Zeilen mit- 
einander kollidieren.) 


Die Ausgabe des Programms erfolgt in drei Spalten: Spal- 
e1 listet jede Adresse zwischen PROG und VARS auf, 
Spalte 2 gibt den 'gelesenen' Inhalt dieser Adressen wieder, 
und Spalte 3 gibt das Zeichen an, das durch die gePEEKten 
Werte repräsentiert wird. 


Für jeden anderen Bereich des Speichers wäre Spalte 3 
nicht sehr informativ, aber was den Programmbereich be- 
rifft, so sollte in Spalte 3 das Programm genauso erschei- 
nen wie es eingegeben wurde. 
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Natürlich geschieht das nicht. Aber obwohl es einige 
geheimnisvolle Zeichen und ein oder zwei ‘nicht abdruck- 
bare’ Dinge gibt (das sind keine schmutzigen Wörter, 
sondern Farb-Kontrollzeichen, die eine Fehlermeldungzur 
Folge hätten, wenn man sie zu drucken versuchte), so 
bleibt doch genug Gleiches zwischen Spalte 3 und Ihrem 
Originalprogramm, daß es klar zu erkennen ist. Einiges 
davon wurde genau in der gleichen Weise gespeichert wie 
Sie es eingetippt haben, aber andere Dinge wurden auf 
recht seltsame Art gespeichert. Versuchen Sie herauszu- 
finden, was passiert ist, und erklären Sie die seltsamen 
Zeichen, bevor Sie READER 2 eingeben. 


19 LET F=PEEK ZERIS+ZSSEHFEER & 
15 LET v=PEEK 256274256B6sPEEHR 2 


E89 LET <=PEEK F 

=5 FRINT P;TFRB 5:: IF cı1& Or 
>25 THEN PRINT TBB 18; CHR& c: 5 
on TO 385 

58 FRINT TAB 12; "iundruckbarı" 

SS LET F=p+1: IF p=v THEN STOor 


4a 50 TOD 20 
AGaa SAME "READER 1" LINE & 
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READER 2 


Das ist eine verbesserte Version des vorhergehenden Pro- 
grammes, bei der Ihnen Spalte 3 das genaue Programm- 
listing wiedergibt. (Es könnten immer nöch einige nicht 
abdruckbare Zeichen erscheinen, falls Sie Farb-Kontroll- 
zeichen benutzen, um Ihr Programm in prächtigen Farben 
aufzulisten.) 


“Reader 3”, falls Sie das für sich selbst schreiben wollen, 
könnte dies ebenfalls erklären. 


Wie Sie bei READER 1 gesehen haben werden, besteht. der 
Hauptunterschied zwischen einem Programm im Speicher 
und einem aufgelisteten Programm in der Art, wie Zahlen 
gespeichert werden. Der Spectrum unterscheidet 
zwischen Zeilennummern und allen anderen Zahlen, und 
speichert sie auf völlig verschiedene Art. 


Zeilennummenm (d.h. Zahlen, die vor jeder Programmzeile 
stehen, Zeilennummern, die einem GO TO oder GOSUB 
folgen, werden auf die gleiche Weise wie andere Zahlen 
gespeichert). 


Zeilennummern werden als zwei Bytes große Hexadezi- 
malzahlen gespeichert. Zahlen, die weniger als 2 Bytes be- 
nötigen, d.h. Zahlen unter 256 dezimal, werden mit einer 
führenden Null gespeichert. 


Deshalb besteht die erste Änderung von READER 2 darin, 
daß, wann immer es sich um eine Zeilennummer handelt, 
2 Bytes aus dem Speicher in eine einfache Dezimalzahl 
umgewandelt werden (Zeilen 20 und 25). 


Die beiden Bytes, die der Zeilennummer folgen, sind KEIN 
Teil des Programms. Sie werden durch den Computer ein- 
gefügt, um die Länge der Programmzeile (in Bytes) anzu- 
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zeigen, und dienen als ZEIGER auf die nächste Adresse, die 
als Zeilennummer behandelt wird. 


Auch diese beiden Bytes stellen eine Hexadezimalzahl dar, 
aber sie sind in umgekehrter Reihenfolge gespeichert. Das 
"HIGHT ORDER’-Byte, (d.h. dasjenige, dessen Wert mit 
256 multipliziert werden muß, wenn man es in eine Dezi- 
malzahl umwandelt) ist hinter dem LOW ORDER’-Byte 
abgespeichert. Das klingt vielleicht unlogisch, aber Sie 
werden feststellen, wenn Sie tiefer in das ‘Gedächtnis’ des 
Spectrum eingedrungen sind, daß dies die normale Art bei 
einem Computer ist, 2 Byte große Zahlen zu speichern; 
und in der Tat sind es die Zeilennummerr, die seltsam 
abgespeichert werden. 


ANDERE ZAHLEN 


Alle anderen Zahlen werden im Programmbereich zwei- 
mal gespeichert. Zuerst werden Sie einfach als Zeichen 
gespeichert, (d.h. 1.2 wird als CHRS 49; CHRS 46; CHRS 
50 gespeichert). Dann wird ein CHR$ 14 dahintergespei- 
chert, um anzuzeigen, daß diese Zeichen tatsächlich eine’ 
Zahl bilden, und dann wird der Wert der Zahl in den 
nächsten fünf Bytes gespeichert, indem entweder Ganz- 
zahl- oder Fließkommaformat verwendet wird. Wir 
werden den Unterschied zwischen diesen beiden Forma- 
ten im Programm “VARIABLE” sehen, aber für den 
Augenblick genügt es zu sagen, daß, wo auch immer das 
Zeichen CHRS$ 14 im Programmbereich auftaucht, wir und 
der Computer wissen, daß die nächsten fünf Bytes eine 
Zahl repräsentieren. (Siehe Zeile 50). 


ı@ LET P=PEEHKR =52E35+ 256 H+FPEER 2 
iS LET v=PEER Z3E2P7+255sFEEK & 
@ LET n=255#PEER F+PEER (p+1) 


ES GO ZUB 100: FRINT n:;TAB 225 
"4 ZEILEN": LET P=p+1l: GO SUB 18 


@: PRINT TAB 21;"t( NUMMER": LET 
P=P +1 


S8 LET Le=FEEK PF+25Sö#+PEER ip+l 
F 

35 50 SUB l2a: FRINT le;,TAb Zı 
“gt ZEILEN': LET F=sp#+i: GO SUR 1 
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FRINT TAB 21;"f LAENGE': LET 


408 LET lesf+rte 

45 LET <=FEEK F 

su 50 SUB 188: IF <=i14 THEN BE 
STORE : PRINT THE 21; "ZAHL. e 
GR Jj=1 TO 5: LET Pp=zp+1: GO SUB # 
886: RERDb n$: FRINT TAB 2i1;n%#: NE 
xT j: 60 TO 688 

S5 IF cı<18 ÖÜR c>25 THEN PRINT 
TAB 168; 56HR$ c: GO TO 5668 

89 FRINT TREE 16; '(undruckbarı" 

85 LET P=sFp+l: IF P=v THEN STOP 


7& IF p=zle THEN GO TO 20 
75 G0 TO 45 
ıa0 PRINT P;TABE &;PEER P:ITRAE 16 


;ı RETURN 
289 DATA "FUENF" "BYTES" CWERT" 
„UDER" ZAHL" 


Saa2Q2 SAUE "RERDER =" LINE © 
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TRACE 


Es ist sehr interessant, wenn man den Programmbereich 
des Spectrum ‘lesen’ kann, aber wozu nützt es? Bieten die 
beiden letzten Programme zusätzliche Möglichkeiten, die 
nicht durch den BASIC-Befehl LIST geboten werden? 


Vielleicht nicht so, wie sie da stehen, aber wir kennen den 
genauen Speicherplatz von jedem einzelnen Programmteil 
und können den Platz eines jeden Befehls, einer Zahl oder 
Variablen ansprechen. 


Wie hier aufgelistet, lokalisiert “"TRACE” bestimmte 

: Variablen, die in einem Programm verwendet wurden, und 
stellt Zeilennummer und Befehl fest, in denen sie vor- 
kommt. Sie können das Programm leicht so ändern, daß es 
Befehlswörter oder Zahlen sucht, aber ich habe Variablen 
gewählt, weil Ihnen das vermutlich am meisten nützen 
wird. 


(Einer der am häufigsten vorkommenden Programmfehler 
ist die zwei- oder mehrfache Verwendung des gleichen 
Variablennamens für verschiedene Variablen). Außerdem 
ist das Aufspüren von Variablen schwieriger als das Auf- 
spüren von etwas anderem, da noch zwischen Variablen 
. mit ähnlichen Namen (wie z.B. b, bS, bc oder ab) unter- 
schieden werden muß. (Siehe Zeilen 75 und 80). 


Einige andere Fallstricke, die es zu vermeiden gilt, wenn 
man eine bestimmte Variable aufspüren will, sind: 

1) Bytes, die Teil einer Zeilennummer, Zeilenlänge oder 
eines numerischen Wertes sind, sollten ignoriert werden. 
Sie haben in “READER 1* gesehen, daß das Zeichen, 
welches durch diese Bytes dargestellt wird, irrelevant ist, 
wenn es aus dem Zusammenhang gerissen wird, und es 
könnte leicht das Zeichen sein, nach dem wir suchen (siehe 
Zeilen 35 und 55). 
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2) Alles, was zwischen Anführungszeichen steht, sollte 
ebenfalls ignoriert werden. Sie könnten ja ohne weiteres 
Wörter wie "a" in PRINT- oder INPUT-Befehlen ver- 
wenden wollen, ohne daß diese als Variable angesehen 
werden sollen. (Sie haben vielleicht auch schon herausge- 
funden, daß man mit einer kleinen Tastaturmanipulation. 
Befehlswörter wie THEN oder RUN in Textzeilen ein- 
fügen kann. Diese werden durch den Computer zwar als 
ein Byte große Schlüsselwörter abgespeichert, aber Sie 
möchten natürlich nicht, daß sie durch ein "TRACE-Pro- 
gramm” als Befehls- oder Schlüsselwörter identifiziert 
werden.) Dieses Problem wird durch die Benutzung eines 
“Anführungszeichenschalters’ gelöst, q in den Zeilen 35, 45 
und 50. q wird auf 1 gesetzt, wenn die Anführungszeichen 
'aufgemacht’ werden, und auf @ wenn sie wieder 'zuge- 
macht’ werden. 


Zeile 30 ist nicht unbedingt nötig, sie zeigt nur die gerade 
gelesene Zeile an, um Ihnen zu zeigen, daß das Programm, 
seitdem es zum letzten Mal fündig! wurde, nicht abge- 
stürzt ist. 


Außer nach der von Ihnen angegebenen Variablen, sucht 
das Programm auch nach dem Doppelpunkt, natürlich 
wieder nur außerhalb der Anführungszeichen, damit die 
Nummer des Befehls (c) innerhalb einer Zeile festgestellt 
werden kann. 


ii REM "TRACE" 

E INPUT "Uariable zum verfolge 
en ";wg: LET I=LEN “sS 

18 LET P=FEEK 235635+255*+PEER & 
se: 

15 LET Y=PEEK ZI627+256=PEEK & 
5625 

20 LET n=Z565#+PEEK F+FEEK {r+1l} 

25 LET Le=FEEK (ip+21 +BEB+PEER 
{P+33 

38 FRINT rn 

35 LET 4=0: LET cel: FOR j=4 T 
G Le+ä 

4+G LET FI=PEEK {(p+ö) 


45 IF pl id THEN LET 4=NOT 4 

ss IF pi 4+ THEN LET j=j+5: 50 
TO =6G 

808 IF pl=S58& THEN LET c=c+i 

85 IF Ppl<>CObE w#si1l) THEN GG T 
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oo 50 

Fe FOR k=1 TO UL 

785 ,LET Fi=PEEK tp+J+k-1): IF FE 
L2>CODE vEik) THEN GO TO 92 z 

589 NEXT Kk: LET K=PEEHR t(p+Jj+k-1 
Y: IF K=35 OR {K>47 RAND k<55) OR 
iK5Sd AND. Kal! OR IK>S6 AND Ks 
123) THEN 50 TO sa 

SS FRINT FLASH 1; INK 2; PAPER 
Fiın;: PRINT INK 8; TAB 5,":"5cC;T 
m1B5 10; wg 

3a NEXT ü 

=5 LET P=d+p+le: IF P=ew THEN 5 
Tor 

1906 Go Tr 208 
Ba. ARUE "TRAGE" LINE © 


74 


Bis hierher haben wir in diesem Kapitel den RAM des 
Spectrum ‘durchgelesen’ und haben die genauen Speicher- 
platzadressen von bestimmten Bausteinen eines Basic- 
programmes angesprochen. 


Der nächste Schritt besteht darin, die Inhalte von einigen 
dieser Speicherplätze zu verändern. Statt riur mit PEEK 
den Programmbereich zu lesen, wollen wir jetzt mit POKE 
neue Werte hineinschreiben. Ein Basicprogramm, das sich 
verändert, während es abläuft! Vielleicht ist das einleuch- 
tendste Beispiel dafür ein Zeilen-Renumerierungspro- 
gramm. 


Wir haben bereits gesehen, wie man Zeilennummern im 
Programmbereich erkennen kann. Sie bestehen IMMER 
aus zwei Bytes und werden IMMER von zwei weiteren 
Bytes gefolgt, die auf die nächste Zeilennummer deuten, 
oder bei der letzten Programmzeile auf VARS. Also, alles, 
was man tun muß, um ein Programm neu zu numerieren, 
ist, entsprechende neue Werte in die Speicherplätze, die 
die Originalnummern enthalten, hineinzuPOKEn. (Nicht 
vergessen, die neuen Nummern in zwei Bytes große 
Hexadezimalzahlen umzuwandeln - siehe Zeile 8). 


Achtung: Diese Methode der Neunumerierung von Pro- 
grammzeilen verändert die Ansprungadressen von GO 
TO und GO SUB nicht. Sie müssen diese manuell ändern, 
damit sie zu den neuen Zeilennummern passen. Aus die- 
sem Grund läuft das Programm nicht mit sich selbst, und 
dieses wegen den Bedingungen in den Zeilen 1 und 3. Die 
erste, neu zu numerierende Zeile und ihre neue Nummer 
müssen hinter der letzten Zeile der ‘Renumber-Routine' 
liegen. Es besteht keine Einschränkung bezüglich der letz- 
ten zu numerierenden Zeile, da das Programm entweder 
anhält, wenn es eine Zeilennummer erreicht, die hinter der 
als letzte Zeile angegebenen liegt, oder wenn es VARS 
erreicht. Wenn Sie also ein gesamtes Programm neu 
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numerieren wollen, dann geben Sie auf die Anfrage 
"Letzte Zeile zum Renumerieren” '9999' ein. 


1 IHFUT "Erste Zeile zum Renu 
anerisren "if: IF f<lo THEN SC T 
a1 

& INFUT "Letzte Zeile zum Ren 
ummerieren "je 


3 INPUT 1" Neyer Wert fuer "jr 
en TEE IF r<30 THEHN 50 TO = 
#+ INFUT "Schrittweite "is. IF 
s{l THEN GO TO 4 
5 LET F=FEEK 238. 355+255=+PEER & 
#38: LET v=PEEK 238374258 :FEER 
= 


& LET n=255#PEERKR P+FEER ip+lı 
LET L=SPEEH (p+Z2ıi +258sFEEKR (p+3 


I: IF n<f THEN 50 TO 5 

7 IF n;e SR p=v THEN LIST : 5 
Tor 

= LET F1=INT trr&2565:1: POKE pP, 
Pl: FOÖKE fF+äi,r-ipls2561: LET r=r 
+B 


= LET p=4+F+l: GU TO & 
BO9G SAUE "RENUMBER" LINE © 
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GRÖSSEN- 
WECHSEL 


Selbstverständlich kann man im Programmbereich mit 
POKE nicht nur Zeilennummern ändern. Jeder beliebige 
Programmbestandteil kann lokalisiert werden, und wenn 
er gefunden wird, kann man ihn auch ändern. 


Es ist Ihnen überlassen, sich einige außergewöhnliche 
Anwendungen dafür auszudenken, hier jedenfalls ist ein 
nützliches Programm, das es gestattet, Programme ent- 
weder in großen oder in kleinen Buchstaben aufzulisten. 


Sie werden schon bemerkt haben, daß alle bisherigen Pro- 
gramme in kleinen Buchstaben aufgelistet waren, um es 
Ihnen zu ermöglichen, zwischen Variablennamen und 
Befehlswörtern (die IMMER groß geschrieben sind), zu 
unterscheiden. Wenn Sie jedoch mit anderen Rechnern 
gearbeitet haben, besonders mit solchen, die keine Klein- 
schreibung ermöglichen, oder wenn Sie finden, daß Klein- 
buchstaben wie m” oder "|" schwer zu lesen sind, könnten 
Sie es vorziehen, Programmlistings mit “GRÖSSEN- 
WECHSEL" auf Großbuchstaben zu verändern, nachdem 
sie eingegeben sind. (Oder umgekehrt, sie mit CAPS 
SHIFT eingeben und sie dann entsprechend der Vorlage im 
Buch umzuwandeln). 


“GROSSENWECHSEL" wandelt ALLE kleinen Buch- 
staben in große um (oder umgekehrt), einschließlich der 
Variablennamen und Text. Wenn Sie wollen, können Sie 
einen Schalter setzen (wie in TRACE), um Textpassagen 
unverändert zu lassen. 


Die beiden Schlüsselzeilen in “Größenwechsel” sind: 


Zeile 85: POKEd einen Großbuchstaben an die Stelle 
eines kleinen. 
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Zeile 90: POKEd einen kleinen Buchstaben an die Stelle 
eines großen. 


ll REM sroezsenwechselL 


5 CL& : FRINT "zum aufliste 
mn im kKleinbuchstabenbitte "ULt@t, 
ı® FRINT "zum auflisten in 
rossbuchstäbenbitte "tut drwm 

en" 


ı5 LET i$=-INKETS 
zu Ir EHE 195 
& THEN LET I 
=5 IF i$- HR& ı17 
S THEN LET \=0: Gb TO 
50 To 1= 
SS CLS : FRINT FLASH 1:"das pr 
gramm wird verarbeitet" 
ag DEF FN FISI=PEEK a+25#%=+FEER 
ka+l)} 
+5 LET pros=FH 2 [E22 22 
55 LET s=Fros 
ESS LET 23=3+5 
za LET F=FPEEK a 
ES IF a>=FH piz3ßszrı THEN CLS 
BIST : STOrF 
ag IF p=175 THEN Ga TG 55 
FS IF p=1d4 THEN LET a=a+1: G0 


, THEM 5D TO ec 

Pr=37 AHlb p<=l22 THEN FO 
2: Ga TO 8 

Pr=-SE ANb p<=®ö THEN FOHK 


SS LET a=a+1: G0 TO 60 
AUE "wechsel" LINE @ 


ı REM SRÜÖESSENWECHSEL 


5 CULS : PRINT "ZUM AUFLISTE 
M IM KLEINEUCHSTABENEITTE "'"L"", 
1 FRINT "" "ZUM AUFLISTEN IN 5 
ROS ;SBUCHSTABENBITTE lt BRUECGE 


Er 

ı5 LET IsS=INKEvs 

za IF Ig$s=CHRr$ 1085 Or IseuHRs 7 

THEN LET L=1: GO TO 35 

2S IF IS=GHR$ 117 Gr I$sCHRs 5 
5 THEN LET L=s6: GO TO 38 

30 60 TO 15 

SS CLS : PRINT FLASH 1: "DAS FR 
SGRRAMM WIRD VERARBEITET" 

4o DEF FH Pifj=FEER HR+25ßSs-rFEEH 

(A+lı 

45 LET FRüßG=rFN Pisa 

SB LET A=FROS-S 

S5 LET Rer+s 

Sa LET F=PEER FM 
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85 IF Ar=FN .Piz3BE27ı THEN CLS 

LIST : STOrF 

?7&a IF. F=135 THEN GO TO 88 

75 IF F=14 THEN LET R=sfA+i1: 60 
To SB 

SG IF L THEN Go TO 90 

SS IF P>=97 AND Fıi=122 THEN Fo 
KEOA,F-Se: GO TO SS 

8 IF FPr=65 AND P<=98 THEN Pok 
E A,P+3z 

5 LET Aem+l: GO TO 88 
Bad SAUE "WECHSEL" LINE ® 
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VARIABLE 


Inzwischen haben Sie wahrscheinlich genug vom Pro- 
grammbereich, deshalb wenden wir uns dem Bereich 
zwischen VARS und E-LINE zu, der als Variablenbereich 
oder auch Variablenspeicher bekannt ist. 


Sie werden auf den ersten Blick gesehen haben, daß dieses 
Programm sehr viel länger ist als alle vorhergehenden in 
diesem Kapitel. Der Grund liegt darin, daß Variablen in 
einem sehr verkürzten Format abgespeichert werden, und 
deshalb ist die Entschlüsselung’ der Bytes im Variablen- 
speicher wesentlich komplizierter als die der Bytes im Pro- 
grammbereich. 


Das Byte (bzw. die Bytes), welche(s) den Variablennamen 
enthält, wird nicht einfach als der CODE des Namens 
gespeichert. Sie enthalten auch Informationen, um welche 
Ärt von Variable es sich handelt, und weiterhin die Anzahl 
und das Format der Bytes, die folgen. Die verschiedenen 
Arten von Variablen, die der Spectrum verarbeiten kann, 
sind unterhalb aufgezeigt (und es gibt mehr davon, als Sie 
glauben würden!) 


ZAHLEN: 


Ganzzahlige Variable mit einem Buchstaben als Namen 
z.B. a 

Ganzzahlige Variable mit zwei Buchstaben als Namen 
z.B. ab 

Ganzzahlige Variable mit mehrbuchstabigem Namen 
z.B. abcd 

Fließkommavariable mit einem Buchstaben als Namen 
z.B. a 

Fließkommavariable mit zwei Buchstaben als Namen 
z.B. ab 

Fließkommavariable mit mehrbuchstabigem Namen 
z.B. abcd 

Schleifen-Kontrollvariable 
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z.B.a 
Numerisches Array (Feldgruppe) 
z.B.a() 


ZEICHENKETTEN 


Eindimensionale Zeichenkette 
z.B. a5 
Zeichenketten Array 


z.B. a$() 


(Beachten Sie, daß wir, die Benutzer, nicht durch einfaches 
Ansehen des Variablennamens unterscheiden können, ob 
es sich um eine ganzzahlige-, eine Fließkomma- oder um 
eine Schleifen-Kontrollvariable handelt. Wir können es 
nicht, aber der Spectrum kann es!) 


Um genau zu erkennen, wie diese verschiedenen Arten 
von Variablen gesichert werden, empfiehlt es sich, das 
Folgende in Verbindung mit Kapitel 24 des Spectrum- 
Handbuches zu lesen (Seiten 160-170). Das Programm ist 
so geschrieben, daß die einzelnen Schritte, die zum Be- 
stimmen des Typs der Variablen und ihres Wertes, genau 
in der gleichen Reihenfolge ablaufen, wie der Text des 
Handbuches. 


Etwas ist allen Variablen gemeinsam, nämlich, daß sie mit 
einem Buchstaben beginnen müssen, und daß nicht 
zwischen großen und kleinen Buchstaben unterschieden 
wird. Das erlaubt nur 26 Möglichkeiten (mindestens für 
den ersten Buchstaben eines Namens), und jede Zahl bis 
26 kann in nurfünfBITS gespeichert werden. (Wandeln Sie 
26 in binäre Form um, und Sie werden es sehen!). Aus die- 
sem Grund stehen noch drei Bits zur Verfügung, um den 
Variablentyp anzugeben. 


Sie werden nicht daran gewöhnt sein, sich ein Byte als eine 
binäre, 8 Bit große Zahl vorzustellen, aber Sie müssen es, 
wenn Sie den Variablenspeicher verstehen wollen. Zeile 30 
entfernt die 5 niederwertigsten Bytes vom Namensbyte 
(den Namen selbst) und hinterläßt eine Zahl im Wert 
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zwischen 2 und 7 (dezimal). Die REM-Anweisungen in den 
Zeilen 35 bis 60 zeigen an, welcher Typ von Variablen da- 
durch identifiziert worden ist, und außerdem enthalten 
. diese Zeilen auch einen Sprungbefehl zu der entsprechen- 
den Auswertungsroutine, 


ROUTINE 100: ZAHLEN - NAME MIT 
EINEM BUCHSTABEN 


Diese Routine ruft nur das Unterprogramm in Zeile 800 
auf, das zunächst prüft, ob es sich um eine Ganzzahl oder 
um eine Fließkommazahl handelt. Die fünf Bytes, die auf 
den Namen folgen, enthalten den Wert der Variablen und 
sind genauso gespeichert wie im Programmbereich. Wenn 
das erste Byte den Wert null hat, dann ist die Zahl ganz- 
zahlig, und die Auswertung ist relativ einfach (Zeile 825)! 
Die Zeilen 850 bis 870 enthalten die komplizierteren Be- 
rechnungen, die zum Entschlüsseln von Fließkommazahlen 
nötig sind. 


ROUTINE 200: ZAHLEN - NAME AUS 
MEHREREN BUCHSTABEN 


Zeile 200 enthält die Korrekturen, die nötig sind, um den 
ersten Buchstaben des Namens anzuzeigen. (Ich habe alle 
numerischen Variablen in kleinen Buchstaben und alle 
Zeichenketten in großen Buchstaben ausgeben Iassen. 
Inzwischen sollten Sie erkennen, daß das rein willkürlich ist, 
und warum der Spectrum nicht zwischen den beiden 
unterscheidet.) 5 


Zeile 230 identifiziert den letzten Buchstaben des Namens 
(höchstes.Bit =1). Zeile 240 gibt die mittleren Buchstaben 
aus. Zeile 260 druckt den letzten Buchstaben. Die Routine 
verzweigt dann zu Zeile 100 und wertet aus wie zuvor. 


' ROUTINE 300: NUMERISCHE ARRAYS 
(FELDGRUPPEN) 


Auch Zeile 300 enthält die Korrekturen, die zum Anzeigen 
des Feldgruppennamens nötig sind. Das Unterprogramm 
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900, das auch für Zeichenketten-Arrays verwendet wird, 
erkennt die Anzahl der Dimensionen (d), die Größe der 
einzelnen Dimensionen (el) und berechnet die Gesamt- 
zahl der Elemente (t). 


Das Unterprogramm 800 wird dann t mal aufgerufen, um 
jedes Element einzeln zu entschlüsseln. 


ROUTINE 400: SCHLEIFENKONTROLLE 


Der Variablenspeicher enthält weit mehr Informationen 
über Schleifen-Kontrollvariablen als nur ihren gegenwärti- 
gen Wert. 


Zeile 410 entschlüsselt die Variable wie üblich. In den 
Zeilen 425 bis 430 wird das Limit, in 435 bis 440 die Schritt- 
weite und in den Zeilen 450 bis 460 die Zeilen- und 
Befehlsnummer der 'Schleifenzeile' gelesen. 


ROUTINE 500: ZEICHENKETTEN 

In Zeile 510 wird.die Länge (LEN) der Zeichenkette be- 
stimmt und die Zeilen 520 bis 540 geben die einzelnen 
Zeichen aus. 


ROUTINE 600: ZEICHENKETTEN-ARRAY 


Benutzt das Unterprogramm 900, um die Größe des 
Arrays auszugeben, und gibt dann das Zeichen aus jedem 
Element aus. 


Das Programm ist sehr lang, aber wenn Sie es verwenden, 
werden Sie ziemlich viel darüber erfahren, auf welche 
Weise Daten im Computer gespeichert werden, und wie 
der Computer diese Daten interpretiert: 


Das Programm läuft allein ab, obgleich die Ergebnisse nicht 
immer so sein werden, wie Sie es erwarten. (Denken Sie 
daran, daß der Inhalt des Variablenspeichers verändert 
wird, wenn das Programm läuft). Versuchen Sie, einige 
Scheinvariablen in Zeile 1 einzufügen, und untersuchen Sie, 
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wie diese gespeichert werden. Was passiert, wenn Sie 
folgendes eingeben: 


1 LET x=1.123456789012345 


REM WARIABLEN 
BIM 6181 
LET F=PEEHK Z35B827+25&6-+FEEHN =& 


SOBUH 


FRINT P;ITRE E;: LET FiI=FEER 


zZ5 IF pl=-1=2& THMEN PRINT TAB 1; 
"ENDE DES URRIRBELENBEREICHS": ST 


S2 LET FZ=INT (Frl, 
ü = THREN GO TO 21ag: REM 

Zahi (1 Euchstabiger Mame) 

+G IF rp2=86 THEN 50 TO zos: REM 
Zahl (Mehrkbuchstabiger Name) 

45 IF pZ=-4 THMEN GG TO Zac: REM 
Mumerizches Array 

55 IF p2=7 THEN GG TG aacdı: REM 
Schleifen Kontrolle 

=5 IF PZ2=Z2 THEN 50 TO Sad: REM 
Zeichenkette 

50 IF p2=£& THEN GO TOD 2906: REM 
Alfanumeriesches firray 

a STORF : REM Fehler, wenn die 
se Zeile erreicht wird 

i12@ REM Zahl: — 

195 FRINT CHhrRsSs pi 

119 50 ZUBE S90 

115 FRINT TAE 1&8;n 

128 LET p=p+1: GG TO 28 

ZO8 FRINT CHRs (pl-5d),;: REM er 
ter Buchstabe 

z198 LET p=r+i 

zZ2&8 LET Pi=FEER F 

238 IF Fl>=128 THEN GO TO zea 
=e40 PRIMT CHRE Pl;: REM mittler 


er Buchstabe (falls vorhanden} 
es@a 50 TO zı10 

zE6 FRINT CHR& (el-l281ı;: REM UL 
etzter Buchstabe 

era GO TO 118 

Soda PRINT CHRS$ {pl-Ze1; "Kt 


SoS GO SUB mad 

sıa FOR k=-1 TO t 

FIE Gl SUB 500 

Sag FRINT TAB 3: "ELsment BAUK;T 


325 NEXT K 

23a LET p=ap+1l: GG To za 

4aqm PRINT CHRs (pi-12571; 

aıa on SUB Sad 

420 FRINT TREE 9, "iSchlLeife)",TA 
E 18;n,TAB 22; "Laufvariabkle" 

425 GO SUE Sam 
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439 FRINT TAB 16:;n:;) TAB Ze; 'Limi 
rt TOT 

435 GO 2UB8 500 

448 FRINT TAB 18;n; TAB 22, "STER 
455 LET L=FEEK (P+l)+258xFEEHR ( 
F+r2): LET S=-PEEK {ip+3): LET F=p+ 
E. 

455 FRINT TAB 16; L:) TAB Z2; "Zeit 
ee Hr." 

460 PRINT TRE 1#8;>3; THE 22; "Befe 
Le 

458 50 TO 28 

So2A FRINT CHRS$ Fl," TAB 18; 
sıd LET L=FEEK ip+1l) +255»sPEER ( 
P+Z1: LET P=p+2 

sag FOR j=1l TO ı\ 

Sa PRINT CHRS$S PEEHK {P+jln 

S4@0 NEXT ij: PRINT 

SSQ0 LET FP=ep+i: GO Tl 20 

ad FRINT CHRs (Ipl-1287, "854"; 
EOS 50 SUB 590 

eile FÜR k=1 TO t 

sza LET F=p+i1 

E3G FRINT TAB 3; "Element BV:K:T 
RE O1ı&; CHRS FEER F 

549 NEXT K 

558 LET Pp=p+1l; Ga To zu 

za@ REM Ganzzahl 

SaoS FOR je1l T5 5 

Ssla LET P=er#+1l: LET bf{JjI=PEER F 
E15 NEXT ü 

E20 IF bil) THEN 50 TO Sqan 


S2S LET n=bIiGI 4+325B#b (ld): IF bie 
3 THEN LET nen-BSS36BE 
RETURN 


845 REM Fliesskomma 

S5G LET m=i1: IF kiz!«:123 THEN L 
ET m-9: LET kiZ)i=biAr+l2E 

SSS LET n=0: FOR j=2 TO 5: LET 
nen+kij)e2585tr ij-1): NEXT U 

seG LET killsb il} - 128 

585 LET n=n#Zztrb il} 

Era IF m 'THEN LET n=-n 

S75 RETURN 

5638 REH FArrays 

=aa=S LET Fi=FEEHR Iip+li+2586=:PEER 
({P+2&21: LET Fep+5 

18 LET J=FEEHR p: LET P=pr+1 
15 LET t=1: FOR j=1 Tü d 

s=5 LET ®=L=FEEK p+255=+FEER ip+1l 
no LET t=tsel: PRINT el; 

s25 IF d<>ı ANb i<rd THEH FRIMT 


933@ LET P=Pp+42: NEXT ji: PRINT '") 
340 LET F=r-i1 


945 FRETURM 
szaa SAVE "VARIABLE" LINE © 
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N 


DAS HERZ 
DER 
MASCHINE 


RENUMBER 
FARBE AUF ANFANGSWERT SETZEN 


BLÄTTERN 
SCROLL 


Alle Programme im vorangegangenen Teil laufen sehr lang- 
sam. Versuchen Sie ein sehr langes Programm mit dem 
Basic-Renumberprogramm neu zu numerieren, dann 
dauert es ewig - oder es kommt Ihnen wenigstens so vor. 


Das hört sich'nach einem Job für Maschinensprache an! 


Hier ist das gleiche Programm, ganz leicht vereinfacht. 
(Diese Version renumeriert das gesamte Programm in 
einer Schrittweite von fünf, wobei die erste Zeile die 
Nummer 5 erhält, Sie können die Schrittweite durch 
Ändern des entsprechenden Bytes im Code, d.h. des 17. 
Zeichens im DATA-Befehl, verändern). 


Das Basic-Ladeprogramm speichert das Maschinenpro- 
gramm ab der Adresse 32000 ab, es ist daher mit 


RANDOMIZE USR 32000 aufzurufen. 


Wenn Sie das Ladeprogramm mit GO TO 9000 abspei- 
chern, werden Sie aufgefordert, sowohl das Ladepro- 
gramm für Ihre Programmbibliothek (denn Sie werden es 
bestimmt nie mehr benötigen) als auch das Maschinen- 
sprache-Programm abzuspeichern. 


Um das Maschinenprogramm zu einem späteren Zeit- 
punkt wieder zu laden, benutzen Sie: 


CLEAR 31999:LOAD “RENUMBER”’CODE 32000, 31 


(Besitzer eines 48K Spectrum werden dieses Programm 
auf eine wesentlich höhere Adresse laden. Denken Sie da- 
bei daran, daß man Bytes von einer Adresse SAVEn, und 
sie an eine andere Adresse laden kann. Es besteht also kein 
Grund dazu, das abgedruckte Ladeprogramm zu ver- 
ändern.) 
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Mnemonischer 
Code 

LD HL, (23635) 
LD DE,® 

LD BD, (23627) 
AND A 


SBC HLBC 
RETZ 


ADD HLBC 


LD B,5 


INC DE 
DINZ,-3 


LD (HL),D 
INC HL 
LD (HL),E 
INC HL 
LD C,(HL) 
INC HL 


so8 DATA 

7er Tr 
B,255, 114 ,.: 
S.24,251 
agaaa SHur 
92895 SRUE 


ı 
3339 DATR 


Bo 


in. 


“"REMUMBERIL" 
"RENUMBER' CODE 


Dezimal 
Code 
42,83,22 
17,0,8 
237,75,75,92 
167 


237,66 
200 


9 


6,5 


19 
16,253 


35 
24,231 


SLERR OS1eS%5: 


Wirkung 


HL=PROG 
DE=® 
BC=VARS 
Übertragungs- 
register löschen 
st HL=VARS? 
Wenn ja, 
RETURN 

Wert von HL auf 
Anfangswert 
setzen 

B=5 (Schritt- 
weite) 

Erhöhen DE um B 
DE =neue Zeilen- 
nummer 

Einfügen 

neue 
Zeilennummer 
BC 


Zeilen- 
länge 
HL=nächste 
Zeilennummer 
Wiederholung 


LET 


IF 3=%%93% THEN STOP 


LET 


u 


ann & 
di 
ea 


39 


jeüjel: 


so TO 


;5,32,17,02,90,2357,78 
‚BE,200,9,6,5,1%,1 
15, 35,78, 


35,70,9,9 


LINE 8 
Sauae.S 
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FARBE AUF 
ANFANGS- 
WERT 
SETZEN 


Wie oft haben Sie schon ein Programm aufgelISTet, nur 

um festzustellen, daß es in himmelblauer Schrift (INK) auf 

scharlachrotem Hintergrund (PAPER) ausgegeben wurde, 

oder noch schlechter, in schwarzer Schrift auf schwarzem 
“Hintergrund? 


Hier ist eine einfache Maschinenroutine, die die Farben des 
Bildschirms zurücksetzt auf den guten alten weißen Rand 
(BORDER), weißen Hintergrund (PAPER) und schwarze 
Schrift (INK), unabhängig davon, welche Farben durch das 
Programm hinterlassen worden waren. 


Es ist nicht nur für die Fehlersuche sehr nützlich, es wäre 

“ auch sehr nett, wenn Sie dieses kleine Unterprogramm am 
Ende Ihrer Programme einfügen würden, damit der Be- 
nutzer Ihre Listings ohne schwere Augenschäden ent- 
ziffern kann. 


Alles, was das Programm macht, ist, die beiden’ System- 
variablen BORDER und ATTR P auf den Wert 56 zu 
setzen (was weiß für den Rand und Hintergrund bedeutet, 
oder, wie Sie aus ATTR TAFEL wissen, schwarze Schriftauf 
weißem Hintergrund.) 


Nebenbei bemerkt: Es gibt noch einen anderen Weg, um 
Ihre Listings leserlich zu machen, ohne auf Maschinencode 
zurückgreifen zu müssen: 
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Geben Sie Zeilennummer 1 ein 

Drücken Sie beide Shift-Tasten und Taste "7" 

Drücken Sie beide Shift-Tasten, halten Sie CAPS SHIFT 
weiter gedrückt und gleichzeitig Taste "@” 

Drücken Sie ENTER 


Zeile 1 wird als Leerzeile in Ihrem Listing erscheinen, aber 
alle folgenden Zeilen werden in schwarzer Schrift auf 
weißem Hintergrund ausgegeben. 


Mnemonischer Dezimal Wirkung 
Code Code 
LD BC,23524 172,92 BC = 
BORDER 
LD A,56 62,56 56 = weißer 
Rand 
LD (BC),A 2 Rand auf 
weiß setzen 
LD C,141 14,141 BC= 23693 = 
ATTRP 
LD (BC),A 2 Hintergrund 
und Schrift 
setzen 
RET 201 RETURN 
ı1© CLEAR 519993 
za RESTORE : FOR Jj=352008 TO 52 
[6 [21 
sa RERAb a: PFOKE j.a: NEXT ij: 5 
ror 


180 DATA 1,72,92,&2,56,2,14.141 
„Z,2zaıl 

25030 SAUE "RESET" LINE © 

9995 ZAUE "RESET"'ÜOLbE Fseaa,ı10 
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BLÄTTERN 


SPEICHERN UND WIEDERAUFRUFEN 
(48K) 


Einige Rechner haben eine Blätterfunktion, wobei mehrere 
'Bildschirminhalte” abgespeichert und nach Belieben 
wieder aufgerufen werden können. 


Genau das Gleiche macht auch der Spectrum, wenn Sie 
dieses kurze Maschinenprogramm einsetzen. 


"Store" kopiert den Inhalt des Bildschirmspeichers in einen 
reservierten Bereich des Arbeitsspeichers (oberhalb von 
RAMTOP), und “Recall” kopiert ihn einfach wieder zu- 
rück. Sie werden feststellen, daß die beiden Programme 
fast identisch sind, und beide lassen die Fähigkeit und Ge- 
schwindigkeit des LDIR Befehls erkennen, mit dem ca. 
7000 Bytes im Bruchteil einer Sekunde übertragen werden 
können! 


Das Basicprogramm ist mehr als nur ein Ladeprogramm, es 
enthält auch noch zwei Unterprogramme, die effektiv das 
Maschinenprogramm ändern, damit es den richtigen Teil 
des reservierten Speichers nach der benötigten ‘Seite’ 
absucht. : 


Das Unterprogramm 1000 speichert Bildschirmseiten ab 
den Adressen 33000, 40000, 47000 und 54000 (Seite 
1-4). 

Unterprogramm 2000 ruft jede dieser vier Seiten wieder 
auf. 


Sie können “BLÄTTERN” in andere Programme einbauen, 
um Bildschirmausgaben nach Bedarf speichern und wieder 
aufrufen zu können, oder Sie können einen ‘Katalog’ Ihrer 
beliebtesten Bildschirmmasken aufbauen. Erinnern Sie sich 
daran, daß, wenn ein ‘Bild’ erst einmal in den reservierten 
Speicher hineinkopiert wurde, das Programm, das es 
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erzeugte, gelöscht werden kann, und Sie das Bild immer 
wieder mit GO SUB 2000 aufrufen können. 


Zeile 9005 speichert nicht nur das Maschinenprogramm, 
sondern den gesamten Speicherbereich. 


BLÄTTERN 

SPEICHERN WIEDERAUFRUFEN 

Mnemoni- Dezimal Mnemoni- Dezimal 

scher Code scher Code 

Code Code 

LD DE33000 17,232,  LD DE,16384  17,0,64 
128 

LD HL,16384 33,064  LDHL33000 33,232,128 

LD BC,6912 1,0,27 dto dto 

LDIR 237,176 dto dto 

RET 201 dto dto 


ıi REM EBlasettern 
ı2 CLEAR 319% 
ET r=3522508 
20 RESTORE : FÜR j=a TO 11: RE 
AD a: FOKE 2+Jj.#=a: NEXT 
390 FÜR j=a TO 11: REARB =: FORE 
r+jJ.,3: NENNT ü STOR 
1980 DATA 17,232, 125,2 
„E27 ,257,376,201 
ze2 DATA 17,0,54,53,2352,123,1,% 
„E7,237,176,201 
1a9a2 INPUT "Speichern siz2 Seite 
Kdi-diı "ip 
1818 LET P=INT p: IF F<ıl OR P>4 
THEN 50 TO 1200 
198228 LET s3=-F#HFOBB+H+ZBEBRUB: LET ae 
INT Lar@S561: LET al=s-a2+258 
19850 FORE 5228601,=a1: FÜKE S2zoo02,3 
z 


LET z-322@ae: L 


@.564,1,8 


184G LET n=-UJER = 

es RETURN 
29090 INFLUT "Aufruf Seite No. (1- 
4) "ir 
2e812 LET p=IMT pP: IF F<ıl SR F>r4 
THEN GG TOD 2Ze00 
ZB2a8 LET ass ’ogdr+zndan: LET ae 
INT (3.2565): LET aissa-sazs25e 
seoza FOKE 520Bd,al: FÜRE TEOSS5S,3 
z 
ea4G LET Mn=WUER v7 
=@059 RETURN 
=220 SRHUE "ELAETTERMN" LINE © 
225 SAUE V"BELAETTERN'CODE 52900, 
GSeoreg 
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SCROLL 


LINKS/RECHTS 

Diese beiden Programme benutzen die Befehle RL (HL) 
und RR (HL), um den Bildschirm zu ‘drehen’, und erzeu- 
gen dadurch einen netten Scroll-Effekt nach rechts, bzw. 
nach links. 


Das Basicprogramm enthält das Ladeprogramm (Zeilen 
10-60) und außerdem eine Demonstration, wie das Pro- 
gramm arbeitet (Zeilen 5 und 100 bis 130). 


Beachten Sie, daß der Endwert der FOR-TO-NEXT- 
Schleife (Zeilen 105 und 120) 8mal der Anzahl der Zeichen 
entspricht, um die der Schirm 'scrollt'. 


Die Befehle RL und RR (Rotate Left/Rotate Bar) haben 
einige “nahe Verwandte” in der Maschinensprache, und 
durch den Einsatz dieser können einige interessante Effek- 
te erzielt werden (allerdings NICHT Scroll)). (Ändern Sie 
die ACHTE Data Position in den Zeilen 50 und 60). 


Versuchen Sie: 


RLC/RRC (Rotate and Carry) 

‚Ändern Sie *22” in “6” in Zeile 50. Ändern Sie “30” in “14” in 
Zeile 60. (Erzeugt ein "Kräuseln” des Bildschirms, während 
sich jeder Buchstabe um seine Achse dreht.) 


Shift (SLA/SRA) 

Andern Sie 22° in “38” in Zeile 50 oder “30” in “46” in 
Zeile 60. (Erzeugt eine Art Zugjalousie, während jeder ein- 
zelne Buchstabe vom Bildschirm herunterwandert). 
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SCROLL 


LINKS ° RECHTS 
Mnemoni- Dezimal Mnemoni- Dezimal 
scher Code scher Code 
Code Code 
LD HL.22527  33,255,87 LD HL,16384  33,0,64 
LD C,32 14,32 dto dto 
AND A 167 dto dto 
RL En 20322  RR(HL) 203,30 
DECH 43 INC HL 35 
DECC 13 dto dto 
JRNZ,-5 32,250 dto dto 
LD A,63 62,63 LD A‚88 62,88 
CPH 188 dto dto 
JRNZ,=13 32,242  dto dto 
RET 201 dto dto 
NOP ® 
NOP ® 


SZ BORDbER 8: FAFER 5: INK 2: G 
19 CLEAR 31999 
28 LET 3=-3208008 
398 RERADb a: IF 3259953 THEN GO T 
LET jei+i: GO TO 


= 


E55, 57, 14, 5,167 
„EB 


12] 
SaA,S52,63,15395,7 = 


‚98,54,14,32,157,20%, 
s 13.22. asa, ‚SR,E5, 155, 52,242 


"ı18@ FOR j=1 TO 22: PRINT "quwert 


YuinpasdfahlklLzxcwenml2z345e": NE 
„XT 5 
ıa= FOR Jje-1l TO Srl18 


1129 RANDOMIZE WER FEA2O 

i1& NEXT j 

ı2@ FÜR j=1ı TO 5:16 

285 RANbüHIZE LSR S5zocG0 

ı135G NEXT ji: STOP 

azgad SAUE "SCRÖLL" LINE © 

323985 SAUE "SCROLL"CODE Tagcad, 35 
3593 DATA 9999 
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INTERMEZZO 


OVERS I 
OVERS 2 
MUSTER I 
MUSTER 2 
INVERT 


OVERS I 


In diesem Buch gibt es eine Menge Beispiele für selbst- 
definierte Grafikzeichen, aber wenn Sie nur ein komisch 
aussehendes Zeichen für irgend einen Zweck erzeugen 
wollen, dann gibt es eine einfache Möglichkeit das zu tun, 
ohne den ganzen CHRS 144-Kram. Sie müssen nur die 
EXKLUSIV-ODER Möglichkeit des Ausdrucks OVER 1 be- 
nutzen, um ein Zeichen über ein anderes zu zeichnen, 
wobei alle Punkte, die beiden Zeichen gemeinsam sind, 
gelöscht werden. 


Dieses Programm gestattet Ihnen, zwei beliebige Zeichen 
einzugeben, und Zeile 50 zeigt Ihnen die beiden Zeichen 
und das seltsame EXKLUSIV-ODER Zeichen, das durch 
OVER 1 erzeugt wurde. 


Sie werden in der Tat überrascht sein, wie einfach es ist, mit 
dieser Methode einige interessante “Weltraummonster” 
zu gestalten. 


een 2 "EXFERIMENTE MIT "N 0 
za INFUT "geben Sie 2 beliebig 
@ Zeichen (öder SPACE fuer End 
elein "as 
sa Ir STOR 
4a IF LEN so To za 
E@a PRINT F QUER 1%; 
agia)ı" = SER " 
aim 


[721 
k 15 16 Fo] 


Ta za 
LE O"'OWERS" LINE © 
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OVERS 2 


Das zweite Programm ist ein Spiel (ein Sortierspiel), 
entworfen, um Sie mit den Eigenschaften des Befehls 
OVER 1 vertrautzumachen. 


Zeile 30 legt eine unvollständige Reihe von $-Zeichen über 
die Mitte des Bildschirms. 


Sie können das blinkende $-Zeichen kontrollieren und es 
mit Hilfe der Pfeiltasten (5 und 8) nach links und rechts 
über die anderen hinwegbewegen. 


Endziel des Spiels ist es, entweder eine vollständige Reihe 
von $-Zeichen, oder eine völlig leere Zeile zu erzeugen. 


Als Zwischenziel jedoch könnten Sie versuchen zu er- 
klären, was genau passiert, warum einige Zeichen gelöscht 
werden und andere neu erzeugt und welche Eingreif- 
möglichkeiten Sie haben, um diese Ereignisse zu veran- 
lassen. 


18 QUER 1: 
INK ©: CGL=& 

zB LET b=© 

= FOR j=1 TO 31: PRINT rT 11, 
"5": LET j=jirrknNDe MEXT 4 

49 LET beb+r Le INKEVSER'B AN. ben 
S1)}- I INKEWSe"5' AND B,e>d) 

E08 FRINT AT 11,6; 0#"' 

za GO Tu 48 
aaa SAUE "OWERS 2" LINE © 


BORDER \: PFRARFER 


u 
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MUSTER I 


Ich bin sicher, daß Ihnen viel nützlichere Dinge einfallen, als 
hübsche Muster auf dem Bildschirm Ihres Spectrum zu 
erzeugen. 


Hier sind zwei Programme, mit denen Sie genau das tun 
können. 


Das erste Programm erzeugt Kaleidoskop-Muster, Zeile 
60 zeichnet die vier Symmetriepunkte. OVER 1 (in Zeile 
10) bedeutet, daß Punkte sowohl mit PLOT gezeichnet, als 
auch mit UNPLOT gelöscht werden. Der Bildschirm wird 
dadurch niemals ganz voll. 


ı9 SUER 1: RANDONMIZE 
za EURDER ©: FRPER 2. CLS 

So LET xeRknNbs1l23 i 

42 LET Y=RkRND#+355 

SB INK RHubs?”r: BRIGHT INT {RND®* 


688 FLÜT x,4: FLOT 2E5-x ,u: FLü 
T x,175-4: PLOT 255-x.178-u 
FE IF INKEYS$S=-'"'" THEN Go TO Sa 
Sa STOrR 
900 SAUE "MUETER" LINE 2 
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MUSTER 2 


“Muster 2" erzeugt geflammte oder “Interferenzmuster” 
die durch das Zeichnen von fast paralellen Linien unter 
Verwendung von OVER 1 entstehen. 


Merke: 

Es ist schwierig, ein ‘Interferenzmuster-Programm’ zu 
schreiben, das kontinuierlich läuft, da der OVER 1-Befehl 
gewöhnlich die Muster vom Bildschirm löscht, 


Wenn man jedoch nacheinander vier Muster durchläuft, 
dann kann der Schirm nie vollständig gelöscht werden. 


Die Farbe der Schrift (INK) wird am Ende jedes Zyklus von 
4 Mustern in Zeile 20 geändert. Befehl 2 in Zeile 20 ver- 
hindert, daß die gleiche Farbe (für INK) wiederholt 
werden kann. 
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5 QUER 1: BECRBbBER G: FPRPER 0: 
INK =: CLS 
ı18 GO SUB 1laa 
15 LET a=2 
28 LET i=INT iRKNDbDs=?7)+1: IF i=a 
THEN GG TO 20 
25 INK i: LET s=i: GO SUSE z00: 
GG SUB 1998: GO SUE 199: GG Su 
23806: Gb TO 20 
ı983 FOR x=@ TO 255 
1188 FLOT x,9 DRAUu 255-x,17E: F 
LOT 255-xX,175: DRAU m -255,-7175 
ııl@g NEXT x 
ı11= RETURN 
252 FÜR x=d TO 255 
z2aS FLOT x,175: DRAU 255-%,-1”75 
: PLOT 255-2,0: BRAU x-255,175 
EIG NEXT x 
eıiE RETURN 
saad SAVE "MUSTER 2" LINE 5 
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INVERT 


Dieses Programm gehört eigentlich nicht in dieses spieleri- 
sche Kapitel, da es eine sehr nützliche Anwendungs- 
möglichkeit des Spectrum erläutert. Allerdings ist das Bei- 
spiel, welches ich ausgesucht habe, um diese Fähigkeit zu 
demonstrieren, unglaublich trivial. 


Sie werden annehmen, daß man mit dem Spectrum nur 21 
Graphikzeichen selbst definieren kann, aber man kann tat- 
sächlich den gesamten Zeichenersatz selbst definieren. 
Wenn Sie also in russischer, griechischer oder sogar chine- 
sischer Schrift drucken wollen, dann können Sie das auch 
tun. 


Die Technik besteht darin, den Inhalt der Systemvariablen 
CHARS so zu verändern, daß nicht mehr wie normal eine 
Adresse im ROM, sondern eine andere Adresse (vorzugs- 
weise oberhalb von RAMTOP) darin enthalten ist. Dort 


sind dann Ihre selbstdefinierten Zeichen gespeichert.. 


(Siehe Zeile 70). 


"Dieser neue Zeichensatz wird auf die gleiche Weise aufge- 


baut wie alle vom Benutzer definierten Graphikzeichen, ° 


d.h., jeweils acht Bytes beschreiben ein Zeichen. Für dieses 
Programm habe ich allerdings geschwindelt, indem ich eine 
exakte Kopie des normalen Zeichensatzes erzeugt habe. 
Besser gesagt: FAST eine exakte Kopie, denn in Zeile 40 
wird sichergestellt, daß alle Zeichen auf dem Kopf stehend 
kopiert werden. 


Das Ergebnis ist ganz amüsant und könnte einige Be- 
stürzung auslösen, wenn Sie das Programm - natürlich nur 
aus Versehen - auf dem Spectrum eines Freundes oder in 
einem Computerladen laufen lassen. 


Die Tatsache, daß der Computer jetzt alles, einschließlich 
seiner Systemmeldungen, auf dem Kopf stehend ausgibt, 
beeinträchtigt natürlich seine Tätigkeit ansonsten über- 
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haupt nicht. Sie können sogar andere Programme laden 
und laufen lassen, die perfekt ablaufen, aber die umgedreh- 
ten Zeichen verwenden. 

Das Programm benötigt mehrere Sekunden Laufzeit, aber 
wenn der neue Zeichensatz erst einmal erzeugt ist, können 
Sie ohne Verzug von einem Satz zum anderen umschalten, 
Geben Sie GO TO 9995 ein, um zu den normalen Zeichen 
zurückzukehren, und GO TO 70, um den umgedrehten 
Satz zu erhalten. 


5 CLEAR zasas 

iG LET C=FEEK Z3E0@E 4258 »-PEEKR 2 
SEOT+BZER 

28 FOR a TO 95 

353 FOR p=a ro 

48 FÜKE 3OUBQ+T7-F+Ssi.,PEEK ic+ 
P+S3=.J) 

SS NEXT pP 

EI ONENT 

a FOKE 23685,48: FOKE 25807,1 
ıs 

590 STOrF 
so90 SALE "IMVERT" LINE © 
3395 REM zurueckschaslten 
29935 FOKE 2Z36808,0: POKE 23507,80 


AUFGABE 


Können Sie diese 16 Punkte mit nur 6 geraden Linien ver- 
binden, ohne den Bleistift abzusetzen? (Die Linien dürfen 
über das Quadrat hinausgehen!) 


Die Lösung finden Sie auf Seite 141. 
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ROUTINEN 


INPUT I 
INPUT 2 
SORT 
BUNDESLIGA 


CASH 
EINEN DATZ FINDEN 


INPUT I +2 


Die Art, wie der Spectrum den INPUT-Befehl verarbeitet, 
ist in mancher Hinsicht schwächer als bei anderen 
Rechnern. 


Der Text des INPUT-Befehls erscheint unten auf dem 
Schirm, und sobald Sie Enter drücken, verschwinden so- 
wohl der Text als auch die Eingabe. Das ist nicht immer 
erwünscht, besonders in "Fragebogenprogrammen”, wo 
der Benutzer vielleicht bei früheren Fragen und Antworten 
nachsehen möchte. 


INPUT 1 und INPUT 2 sind zwei Unterprogramme, die 
beide je eine Alternative zu der üblichen INPUT-Routine 
bieten. INPUT 1 dupliziert die übliche Form des INPUT- 
Befehls, die bei den meisten Computern verwendet wird, 
wobei Anfrage und Antwort an einer bestimmten Stelle 
des Schirm erscheinen und dort auch bleiben, nachdem 
der INPUT-Vorgang abgeschlossen wurde. 


INPUT 2, auch bekannt als ‘Eingabe & la “AufLos gehts los”, 
bringt keine Anfrage, sondern zeichnet eine Reihe von 
Gedankenstrichen, die nach Drücken der entsprechenden 
Tasten durch Buchstaben ersetzt werden. Die Eingabe ist 
entweder durch ENTER oder bei Erreichen des Endes der 
Gedankenstrich-Reihe beendet. Diese Methode ist ideal 
für die Eingabe von Daten in eine Zeichenketten-Feld- 
gruppe (String array), wo die Länge der Elemente vorge- 
geben ist. 


ACHTUNG: Die erste Zeile jedes Unterprogramms 
erstellt lediglich ‘örtliche’ Variablen zur Demonstration der 
Wirkungsweise. Wenn Sie die Routinen in anderen Pro- 
grammen verwenden, müssen Sie die Zeilen 8000/8100 so 
verändern, daß: 
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- x und y Zeile und Spalte sind, wo die Eingabe erscheinen 
soll. 

- in INPUT 115 die Anfrage ist 

- in INPUT 29 die Zeichenketten-Feldgruppe ist, für die 
Daten eingegeben werden sollen. 

- 1. die Länge der Zeichenketten-Feldgruppe ist. 

- beide Unterprogramme die Eingabe in 8 ausgeben. 


BEMERKUNGEN ZUM PROGRAMM 


Beide Progranme verwenden ‘Verkettung‘, um die 
Zeichenkette t$ umzuwandeln. Jeder neue Wert von 
INKEY$ wird am Ende von t$ hinzugefügt, außer die ge- 
drückte Taste war entweder ENTER (CHRS 13), was die 
Eingabe beendet, oder DELETE (CHR$ 12), wodurch das 
letzte Zeichen gelöscht wird (Zeilen 8040 und 8130). 


zeaaa LET z=1@: LET yYy=&: LET t$=' 
Name" 

50505 FRINT AT x.u;td 

Sal®o LET 4 Zz+LEn 18 

SGI1SE LET t$ ii 

So2@ IF 4>31 OR u=-1 THEN LET y=s 
3141#(u=-1)1: LET x=k-1+H28rlu=oaı 
SB25 FRINT AT x,„u; FLASH 1, VT" 
SQAFG PAUSE 8: LET QS$S=INKErs 


SQ35 IF A$=ChR$ 15 AND t5<>""t TH 
EN Ga TO 590€5 

5948 IF Q$=elührs 12 AND t$<:>"" TH 
EN PRINT AT x ,UWICHRE 32: LET u=y 
-1: LET tS=t8$8{ TO LEN t$-1:: 50 

TOD 2028 


320945 IF ysıCHRs$ 38 THEN SO TO sa 
=» 

S2OS52G LET 1S=etsras 

955 FRINT AT x,4;985: LET u=s4a+l 
95328 GO TO S920 

5055 FRINT AT x ,„w;ichrAs 32: RETUR 
[03 

eoaag SAUE "INPUT 1" 
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s1la@ LET x=5: LET n=18: LET L=15 
; DIM rgin,LI 

SslasS FOR ;=-1 TO n: FOR k=1 TO ı 

zııld FRINT AT x+l-i,Kk;CHAs 48 

S115 NEXT Kk: LET k=1 

sız2a FAUSE SG: LET 9$=INkKEvs 

Sl25 IF 4$=CHR$ 135 AND Ks<>1 THEN 
GcGo TO 515g 

sısa IF qA=-CHRg 12 AND K:>13 THEN 
LET k=k-1: PRINT AT x+j-1.Kk;cCHr 
5 45: LET t$(Jj)et$ij, TO k): G0 

TO 8126 

S135 IF 4Ss:CHR$ 32 THMERN GO TO 51 
=. 

sıiaa LET t$1,j.&3=q4&: PRINT AT x+ 
J-1.6;9%: LET kKsk+rl 

S145 IF k<=i THEN GCa TO 5128 
2150 NEXT ü 

SLSES5 RETURN 

waag ZAUE "INPUT 2" LINE © 
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SORT 


Hier haben wir eine einfache Methode, um eine Feldgruppe 
mit Zahlen in absteigender Reihenfolge zu sortieren (oder, 
mit geringen Änderungen, in aufsteigender Reihenfolge). 


Die Methode ist eine Variation des bekannten ‘Bubble-Sort’ 
und funktioniert folgendermaßen: 


Es gibt zwei verschachtelte Schleifen, wobei die Äußere (j) 
die Anzahl der "Durchgänge’ durch die Feldgruppe festlegt. 


Die innere Schleife (k) vergleicht jede Zahl in der Feld- 
gruppe mit derfolgenden Zahl, und wenn die zweite größer 
als die erste ist, vertauscht sie diese. Am Ende des ersten 
Durchgangs bleibt deshalb die kleinste Zahl als letztes 
Element der Feldgruppe übrig. 


Beim nächsten Durchgang (NEXT |) sortiert die k-Schleife 
die zweitkleinste Zahl in das zweitletzte Feldgruppen- 
element usw. bis zum letzten Durchgang, in dem nur noch 
die beiden ersten Elemente sortiert werden. 


Die Zeilen 8200 und 8218 gehören nicht zum Sortierpro- 
gramm, sondern dienen der Demonstration. Zwanzig zu- 
fällig ausgewählte Zahlen werden auf der’ linken Seite des 
Bildschirms ausgegeben, sortiert, und dann in absteigender 
Reihenfolge auf der rechten Bildschirmhälfte aufgelistet. 


Ssza0 LET n=286: DIM ain): FOR üi-l 
TO n: LET stj1=INT {RNDb#+1C098) : 

PRINT JSTAE S:ıatyj): MEXT ü 

S295 FOR j=1l TO n-1: FOR k=1 TO 

müs 

es21B8 IF atlk)cxatk+l) THEN LET t=3a 
ik): LET aik)=salik+l): LET aike+1l) 
-t 

Ssz15 NEXT Kk: NEXT ü 

sz21&5 FOR j=1 TO n: FRINT AT ü-l, 
168; J;TAB 22; ailjı: MEXT ü: REM IN 
ur zur Demonstration) 

SS22@0 RETURMN 

3080 SRUE "SORT" LINE © 
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 BUNDES- 
LIGATABELLE 


“Liga” ist eigentlich kein Unterprogramm, sondern ein kom- 
plettes Programm, und es enthält eine modifizierte Abart 
des vorangegangenen Sortierprogramms. Diese kann in 
viele andere Programme eingefügt werden, wo eine regel- 
mäßig aktualisierte ‘Punktetabelle’' verlangt wird, z.B. Fuß- 
ball, Wahlergebnisse usw. 


Im nebenstehenden Listingenthält die DATA-Zeile 8000 die 
Zahl 18, gefolgt von den Namen der 18 Mannschaften der 
ersten Bundesliga. Wofür Sie das Programm auch benutzen, 
die DATA Zeile sollte immer aus einer Zahl, gefolgt durch 
diese Anzahl von Posten, bestehen. 


Zeile 10 liest die Daten in das Array t$() ein, aber das erste 
Zeichen jedes Elements ist für die PUNKTE von jeder 
‘Mannschaft’ reserviert. 


Der Hauptteil des Programms enthält jedoch eine andere 
Form der Eingabe-Routine, bei der das Drücken jeder 
numerischen Taste als Eingabe gesehen wird, während ein 
Druck auf DELETE den Namen des letzten Teams und die 
Punkte des vorletzten löscht, so daß diese geändert werden 
können. 


Das Sortierungsprogramm entspricht dem letzten Pro- 
gramm, außer daß hier das erste Zeichen jedes Elements 
herausgezogen und in eine Zahl umgewandelt wird (unter 
Verwendung von CODE). Die gesamte Feldgruppe wird 
dann nach den Werten dieser Zahlen sortiert. 


Offensichtlich funktioniert diese Methode nur, wenn keine 
der Mannschaften mehr als 255 Punkte erzielen kann. Das 
trifft für die Bundesliga zu, aber wenn in Ihrer speziellen 


110 


Anwendung ein höheres Ergebnis möglich sein sollte, muß 
ein Zweibyte-System verwendet werden. 


Nach der Ausgabe der sortierten Daten wird das Programm 
einschließlich Daten gespeichert (Zeile 240), damit nach 
dem nächsten Laden neue Punkte zu den bisherigen Er- 
gebnissen hinzuaddiert werden können. 
1 REM _ Eundesliga Tabelle 
18 RESTORE 89886: READ n: DIM € 


gin,=03: FÜR Jj=1 TO n: LET ts(J,. 
I} =CHRs 28: READ tSLij.2 TO J: NEN 


Tü 
z8 DIM bEiızoı 
189 GLS : FRINT "Eingabe der Pu 


nkte der Woche: 

185 FOR je1l TOön 

ı11@© LET x=INT C(j+l).-21: LET Vs 
Er (jexazı 

115 FRINT AT x ,.Yiıtsi).2 TO 3;CHMH 
RS 52; CHRs$ 5; 

128 FAUSE ©: LET FS=INKEYS 

128 IF p&$=CcHks 12 AND ;>1 THEM 
FRINT RT x,4Wihä: LET J=j-l: LET 
tg (ij, AI SCHRS ICODE t$i3,11-p1: 6 
os T5 ııa 

138 IF ps<:'ea'" OR ps>:'=" THMEN 50 
To 120 

135 FRINT Ps$ 

140 LET F=URAL PS: LET tSt0J,23 
HRS SCOCbE t$tiJj,11#p) 

150 NEXT j: FRINT AT 15,11; 'S0r 
t Laeurt" 

155 Go SUB Szda 

za GLS : FÜR i-=1 TO rn 

Zu5 IF j<t>i1 THEN IF ts(\j,1ll=etsi 
J„-1,11 THEN GO TG ZiS 

z210 PRINT ü; 

e1S5 FRINT TREE 5; tsij.2 TO I,:COB 
E t$(,i,123 

z2B NEXT 4 

23% INPWT '"'Dryuecken Sie ""ENTER 
"om die Daten zu speichern") 
a5 

Z4e SAUE "LIGA LIME 120 

S50B8 DATA 15,"Hanburger ZSuUr,t'Bay 
ern Muenchen", "WrB Stuttgsrt','lud 
erder Eremen',"Boruzsia Dortmund 
"."2,FC Koeln", "1l.PFÜ Kaisersiaut 
ern"„"1l.FC NVvernbera","Eintr,Fra 
nkfurt"„"Braunschweia',"PFortunse 
Duesseldorrf","Arminisa Bielefeld" 
„"UfL Bochum," Bayer Lewerkusen" 
‚'BEor.M’aladbach", "Hertha BEC"." 
FO Schalke Ga','Kartzruher 306% 
S2090 REM Sort Unterprogramm madi 
Fiziert 
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s2aSE FOR j=1 TO n-ı1: FOR k=1 TO 
No, 

8207 LET 3=-C0CE tsS(Kk,1): LET b=0 
SDE t$Iik+1,11 

s2z2ıa IF a:E THEN LET a&$ 
ET tS$SiKkl1=et$(Kk+rl): LET € 
S21IS NE=T kK: NEXT ij 
sz2&0 RETURN 

2B09 SAUE "LIer' LINE & 
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CASH 


Als eines der nützlichsten Unterprogramme überhaupt 
wandelt “CASH” unformatierte Zahlen in ein festes 
‘Kassenformat’ um, so daß sie vernünftig in Spalten unter- 
einander geschrieben werden können. 


Wenn das Unterprogramm aufgerufen wird, sollte die 
Variable p eine Zahl enthalten. Nach dem Rücksprung aus 
dem Unterprogramm steht in m$ die formatierte Zahl. 


Die sechste Stelle von m$ ist immer ein Dezimalpunkt, 
deshalb werden alle Zahlen, auch Ganzzahlen mit 2 Dezi- 
malstellen, ausgegeben. Das Programm enthält außerdem 
einen Fehlerschalter (Variable x). Wenn p nicht als gültige 
Zahl dargestellt werden kann (mehr als 2 Dezimalstellen), 
wird x auf 1 gesetzt, so daß das Hauptprogramm die Zahl 
zurückweisen kann. 


Das Programm enthält keine Demonstrationsdaten, da es 
in zwei Programmen in diesem Buch enthalten ist "FAK- 
TURA”" und “RECHNUNGS-BUCH"”. Aber wenn Sie es 
testen wollen, dann fügen Sie einfach die Zeilen: 


10 INPUT p: GO SUB 5008 
20 fx=® THEN PRINT m$ 
38 GO TO 18 


ein. 


. REM 
ode LET = 
ESTRE ER 
Said TF ms (5) ecHrRä& 
HRS DEzensi TO 7 
FÜR Jje1l TO 8 
IF nt$tfi)='.' THEN 50 TO Sası 


SH 
Er: 


DBIM msi: LET m$= 


THEN LET m 
gan TO Sale 


EOE 
[5 
Za4N NEXT 
Saza IF O j=3 THEN LET MNegemsid TO 
ES 

So=s2 IF j=7 THEN LET mSsemsia Ti 
DHtui“ 


Sera IF m$:>"." THEN LET z=el 
SOSg RETURMH 
zacad ZERLE "CHEM" LINE 5 113 


EINEN SATZ 
FINDEN 


Hierbei handelt es sich um ein wichtiges Unterprogramm 
für jedes Datenbankprogramm. 


Zeile 8500, die übliche Zeile ‘nur für Demonstrations- 
zwecke', erlaubt es Ihnen, eine Mini-Datenbank, be- 
stehend aus 10 Sätzen und 15 Feldern pro Satz, aufzu- 
bauen. Die tatsächliche Größe der Datenbank ist unwich- 
tig, da alles, was von Ihnen in Zeile 8500 verlangt wird, die 
Eingabe des ersten Feldes (des Schlüsselfeldes) von jedem 
Satz ist. 


Das Programm fordert Sie auf, den Namen des Satzes, den 
Sie verarbeiten wollen, einzugeben, und durchsucht dann 
sämtliche Schlüsselfelder, bis es diesen Namen gefunden 
hat. Nichts Besonderes dabei ... aber was das Programm 
so nützlich macht, ist die Tatsache, daß, wenn Sie nur den 
Teil eines Namens eingeben (also nur einen oder zwei 
Buchstaben oder auch nur ein Leerzeichen), es alle Schlüs- 
selfelder sucht, die diese Zeichen enthalten. 


Stellen Sie sich beispielsweise vor, Sie hätten eine Informa- 
tionsdatei aufgebaut, die verschiedene Rechner betrifft. 
Ihre Schlüsselfelder würden aus Namen wie “Spectrum”, 
“Commodore”, “Apple” oder “Acorn” usw. bestehen. 


Monate später, wenn Sie sich die Datei wieder einmal an- 
sehen wollen, haben Sie vielleicht vergessen, ob die Infor- 
mationen über den Spectrum unter “Spectrum” oder 
unter “Sinclair” enthalten ist. Das spielt keine Rolle, geben 
Sie einfach “S” ein, und das Programm wird sie finden. 


Und wird “Commodore” mit einem oder mit zwei m ge- 
schrieben? Wer fragt danach? Einfach “Com” eingeben! 


114 


Aber was passiert, wenn Sie “A" eingeben? Findet das Pro- 
gramm dann “Apple” oder “Acorn”? 


Es findet das was zuerst kommt, aber es bittet Sie um eine 
Bestätigung, daß es den richtigen Satz gefunden hat. Wenn 
es also “Apple” findet, und Sie wollten “Acorn”, dann 
drücken Sie einfach “n”, und es wird mit der Suche fort- 
fahren. 


Wenn es dem Programm nicht gelingt, einen passenden 
Satz zu Ihrer Eingabe zu finden, erscheint die Meldung 'Satz 
nicht gefunden‘, und Sie werden ersucht, eine neue Eingabe 
zu machen. 


Ein Tip: 


Ich empfehle Ihnen, alle Schlüsselfelder mit einem gemein- 
samen Zeichen beginnen zu lassen, also einem Leer- 
zeichen oder einem Punkt. Wenn Sie dieses Zeichen auf 
die Anfrage “Name des Satzes" eingeben, werden alle 
Sätze nacheinander angezeigt und Sie erhalten so eine Art 
Inhaltsverzeichnis für Ihre Datenbank. 


500 REH einen ZBatzr finden 
56% LET n=10: DIM agıin. 15,181: 
FOR Jj=1l TO n: INPUT asij.i:: NEX 
12 

SFLG INFUT "Name des Satze2';ts 
520 IF t$="" THEN GO TO 514 
SEI0 FOR ırT0m 

S5da FOR ı TO 1S5S-LEN t18$ 

SS558 IF saslj,.1,k TO K+LEN tS-11=- 
t$ THEN Ga TO Soc 

B5E0 NEXT Kk: NEST i 
55720 PRINT FLASH ı i 
EFUNBEN": G0 TO 2510 
SE@G FRINT "GEFUNDEN: ";asılıi,2) 
5518 INFUT "richtig 4 Ftiaß 
Ss THREN 56 TO 3550 
55508 Ma RETURN 
SB 
oa 


NICHT © 


SETRBEN LINE 
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au Me: er 
I \ 


COMPUTER- 
KUNST 


MARYLIN 
MALEN NACH NUMMERN 
STERNENBANNER 


MELODIE I 
MELODIE 2 


MARYLIN 


Um dieses Programm einzutippen, braucht man eine ziem- 
lich lange Zeit, aber es ist die Anstrengung wert! 


Es ist eine wundervolle Demonstration der Sinclair Farb- 
graphik, keine Strichzeichnung oder Karikatur, sondern ein 
farbiges Bildschirmportrait. 


Und ich meine SINCLAIR Graphik, denn das Bild ist aus- 
schließlich aus den acht Standardgraphikzeichen aufgebaut, 
keine hochauflösende Graphikpunkte oder selbstdefinier- 
te Zeichen. 


Nur acht Graphikzeichen? Sicher! Zwar stellen CHR$ 128 
bis CHRS 143 alle Graphikzeichen dar, aber acht davon 
sind nur die Umkehrung der anderen. Da das Programm 
für jedes Zeichen Hinter- und Vordergrundfarben separat 
festlegt, hat das Prinzip der Umkehrung keine Bedeutung, 
und deshalb werden CHRS$ 136 bis CHRS$ 143 nicht be- 
nötigt. le wird auch CHR 128 nicht gebraucht, da 
es das gleiche Zeichen wie CHR$ 32, also SPÄCE, darstellt 
- das Bild besteht also in Wirklichkeit nur aus SIEBEN 
Graphikzeichen plus Leerzeichen). 


Die erste Stufe beim Gestalten des Programms war das 
Aufzeichnen des Portraits auf Zeichenpapier. Um es auf 
den Bildschirm zu befördern, waren zwei weitere Opera- 
tionen nötig: 


1) Aufbau einer Feldgruppe, die die benötigten Graphik- 
zeichen enthält. 


2) Hinzufügen der Farben durch einPOKEn in die Attribut- 
datei. 
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DIE FELDGRUPPE 


Auf dem Bildschirm gibt es 704 Zeichenpositionen, also ist 
a$ eine Feldgruppe mit 704 Elementen, von denen jedes 
einer bestimmten Bildschirmposition entspricht, d.h., 
wenn es gedruckt bzw. ausgegeben wird, dann ist a$ (32) 
die rechte obere Ecke des Bildschirms und a$ 352 ist 
irgendwo in der Mitte. 


Es gibt keinen Grund, warum Sie a$ nicht mit je einem 
Zeichen für jedes Element laden sollten. Ihr Programm 
würde sehr lang werden, aber Sie könnten immer die 
'Zwei-Programm-Technik’ anwenden (Wie in “Fort-Data” 
und “Festung”), wenn der Speicherplatz knapp wird. Es 
gibt jedoch Sparmöglichkeiten! 


Sie werden vermutlich herausfinden, daß die meisten 
Zeichen in einem Gemälde ‘vollständige Quadrate’, d.h. 
CHRS$S 128 oder CHRS$S 143, sind. Nicht nur sind diese 
Zeichen genau gleich, (mit Hinter- und Vordergrundfarben 
vertauscht), sie entsprechen auch genau CHRS 32, das der 
Computer in jedes Element von a$ hineinstellt, wenn es 
mit DIM aufgebaut wird. Die einzigen Zeichen, die in die 
Feldgruppe eingefügt werden müssen, sind die ‘unvoll- 
ständigen Quadrate‘, 


Als ich dieses Programm schrieb, schrieb ich zuerst die 
Zahlen 129 bis 135 untereinander und zählte dann die 
Quadrate auf dem karierten Zeichenpapier von 1 bis 704. 
Jedes Mal, wenn ich ein Zeichen entdeckte, das kein ganzes 
Quadrat war, schrieb ich die Nummer dieses Quadrates 
neben den entsprechenden Zeichen-Code. 


Diese Liste wurde zu den DATA-Zeilen 129 bis 135 des 
Programms, und die Zeilen 10 bis 80 wurden hinzugefügt, 
um die Daten in a$ zu lesen und sie am Schirm auszugeben. 


DIE ATTRIBUTE 


Die nächste Stufe bestand darin, das karierte Papier mit der 
Zeichnung erneut durchzusehen, wobei es dieses Mal auf 
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die Farben in jedem Quadrat ankam. Man könnte wie- 
derum 704 Befehle schreiben, um jede Farbkombination in 
die Attribut-Datei hineinzuPOKEn, aber es gibt auch hier 
wieder Einsparmöglichkeiten. 


Sie werden merken, daß eine Farbe in einem größeren 
Block gleich bleibt, es ist also einfacher, die Attribute für ein 
Quadrat aufzuschreiben, gefolgt von der Anzahl der 
Quadrate, für die die gleichen Attribute gelten. 


Die DATA-Zeilen 5000 bis 5021 stellen die Attribute des 
gesamten Schirms dar, nach der oben erwähnten Methode 
aufgezeichnet. Beachten Sie, daß Variablennamen anstelle 
der tatsächlichen Attribute verwendet werden. Die Zeilen 
500 bis 570, die die Werte dieser Variablen festlegen, 
wurden später hinzugefügt, nachdem ich das Programm 
ATTR TAFEL zu Rate gezogen hatte. Zum Schluß kamen 
noch die Zeilen 1000 bis 1020 dazu, um die Attributdaten in 
die Attributdatei einzulesen, und das Bildschirmportrait 
war fertig. 


Genauso wie alle anderen Programme in Kunst um der 
Kunst willen, ist auch "MARYLIN” als Demonstration ge- 
dacht, aber wenn Sie erst einmal die Technik beherrschen, 
versuchen Sie einmal, Ihre eigene Spectrum Kunstgalerie 
aufzubauen. 


Zeile 1040 gestattet Ihnen, das Bild OHNE das Programm, 
mit dessen Hilfe es entstand, abzuspeichern. (Mit LOAD 
“MARYLIN"SCREENS können Sie das Bild jederzeit re- 
produzieren). Sie können es aber auch mit dem Maschi- 
nenprogramm “BLÄTTERN” abspeichern und wieder auf- 
rufen. 
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(ı ini 
lin u 
IM 


BORDBER 1: CLS 
S LET x<=3993 
18 DIM ayI[rodı 
za FOR j=el2=s TO 135 
78 RESTÜORE ü 
4m READ =: IF ä=x THEN Su TO 7 


Ir 


SB LET sa8(al=UHnks 

eB GG TO de 

"3 NEHT 4 

28 FRINT a8 

12% DATA 57,155,508.3351,.332,958 
‚371,456,527,559,555,555,597,.617 
„EIS,BE1,® 

1352 DATA 197,2902,252,7058,3976,D7d4 
2.351,387,073,d4d258,.480.462,467,55 
S55Q9,5535,595,557,887,xX 

131 DATA 21,852,108.,109,111.2665, 
ZE7.,272,272,274,2758,297,298,2939, 
547,5390,525,525,559,570,584,255, 
BEE. HM 

1132 baTtrm 110,303, 504 ,329,357,38 


2,459, 523, E24, Sßd, 594 ,825,5250,88 
Eu 

133 DATA 37,122,1757,145,154, 1813 
‚213,215, 225,245, 2686, 28d, 232,226 
‚328,532, 542,709,3657,3921,297,.404 
‚+19 ,4295,d24,455,474,541,5159,526 
„‚S21.531,953,5271,9554, 598, 5Q@,516 
‚E25 ,630,8£51,642,650,RE0,652,592 
Pe 

184 DATA 255,5335,85 


E.x 
4155 DATH 24,584,117,1798,500,3558, 
4581,.455,497.4599, 588, 

SOG LET kK=0: 

LET Fr 


LET 


mezı: 


ET w=585 
519 LET 
Szö LET 
S50 LET 
Sdal LET 
SS0 LET 
SER LET 
STa LET 
g3g=80: LET cu 
ea=4: LET kn= 
1909 REETORE 
D 25231: 


= 
RErRD a, 
22918 FOR k=1 TO 


J=J+1: NEXT K: 
1924 NEXT ji 

3@a IF INKEWS< 
Sa 
1948 
1358 
Sgaau 
E60 
Faaz 
‚„Euıl 
.E002 DATA 
‚n4,1,mM,5, 
=aa4 DATA 
„4c.,1,.2.,.10 
3295 DFTA 
1,4,4,2.11 
S9936 GrTaA 
1,4 ,4,4c,.1 
s82> DATA 
1,4,5,%2,9 
EOS DATA 
skm.l.m.d. 
YWıd.yuc,lL.c 
EAQAS DATA 
‚n,.2,mw,i, 
2.10 
selo DFATta 
1,vm.12,.m 
1, WE, 
ıı bATR 
„‚mw,1, 
DATA 
»mWur. 
BATRA 


SAUE 
STar 
baTA 
bare 
beaTra 


"MAR 


£ 


G- DEI Einn 


Be 


u 
B+ 
LEnBEnk- LC Eu en on» 
ale re fr 
- 88 


eg 
JORUE 


4 DAara 


9°02803838- 
Br 


nd 
EEr - du» En 


- Bro Rp Mic 
3LE- ce CB CE pE- EBlpr 


"pie. Prinz Be pnE- 


Lilh- 


1 
‚ı1,w,2,rw,1 
‚„S.c,14 

salz bFATta 
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Upper. 


cu,1 


„Wil, 


ver 
LET 
LET 
LET 
LET 
LET 
LET 


ye=So 
vm=-S1 
nz 
[ge Eu 2 
vcrm=19 


Ba: 
[3 

[>33 
LET 


FOR jJ=22528 T 


PORE 3.8: 
J=irl 


LET 


»'"s' THEN GO TO ı 


LIN’SCREENS 
5 
‚4 
m,&.mM4,12,9M.l 
un, .2,2,10 

m,il.mw,1,4,4 
‚4m..l.m,l@,mmw. 


2.m,10,mw. 


L 


Lig u 


ı£ 


‚Wu, 2,m, 12,mw, 


wm, .L.,km.12,m,2ı 
kn.ıi,m,1l,w.1, 


2er 


5 
® 


n,ı.9m,@.,km,i 
anm,„Z,wu,22,4.&, 


= R 
fer 


K 
. 


D 


Wl,U, 12.69, 1L, 
g,l.kw,l.u,l, 


eu l.n, 
wm,il.ım,S.um,1 


. 


[3 
K 
5 
5 
5 
s 
4 


FH Befßne. 


wm, .L.m,:3, Een 
Bodk,uc.i, ‚44 
‚S,km.l, mern 


=. 
1, 
m 
= 
w,1l,um,12,m,1 


w 
ı 
m mw 


r „rm, 1,m,5%, 


»nErs br Ge gro oc pp 


m.1l.m,1,mr,.2 
nm. um,12.w8, 


2 


EEE 
Be 
„ı 

‚ız 
1,0 

vi, 


wg4,2,94,1,9.2,97,1,cC.15 
cu, 2,4w,21,0m , 1.m.E.mm. 


BATA 


bAaTa 
L.mw. 
DATA 
re 3] 
SAUE 


zy,21,uUw,12,WM%. 
ı,m,z,»2,9,1 


„3. 


zw.A.m,i,mw.d, 


"MAFRTLIN 


LINE 


@ 


‚„1I.m,1,09,1,92, 1.94. 1,4c.1 
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MALEN 
NACH 
NUMMERN 


Dies ist ein viel einfacheres Programm als Marylin - das Bild 
wird ohne Verwendung der Ausgabedatei aufgebaut. Es ist 
ausschließlich aus Leerzeichen (Blancs) zusammengesetzt, 
aber da die Blancs eine unterschiedliche Hintergrundfarbe 
haben, wird die Illusion eines Bildes erzeugt! (Wenn Sie es 
nicht glauben wollen, daß das Bild eine Illusion ist, dann ver- 
suchen Sie es doch einmal mit COPY über den ZX-Printer 
auszudrucken). 


Alles was Sie tun müssen, ist die Taste zu drücken, deren 
Nummer mit der Farbe übereinstimmt, die Sie malen 
wollen. 


Das BEEP-Signal sagt Ihnen, wenn der Computer für den 
nächsten Tastendruck bereit ist. 


S555577ESES555555SS5S5S5555555E5558 
S5SSS7TTY7EESSSSSESSEETT777SSESE8555 
SERRETTTFFFSESESSESSSESSTTTTESESBERBBSS 
BEBBBAFTFTFESETTFSSESTTSESEBBEBSEBGE 
44dldBESSSETT7JESESSESBEBESSBSSSB658 
111114825777 775SESSSHESESSBSEEEE5 

FS31L4E2E55F7 TEIL SESET7TESSSSSSSEE 
SS5E55514B2E555424AF7 FF FT TESSESE44E 
542453 1482555544 DM4AFPPFFESE44Z44 
5444455 314E25445444 5427 7ES55S54442 
442455553146242405904244 555545244 
Zead4445E5314625445905444554 24449050 
444544945535 148.2SSS5OSSES555544 24405 
B5944245GL14BELESES5G555554454 44204 
50544444. 314 E25EBE5OS55S55E444 05495 
SOSS2ES55ST14825555055ES5S5525595505 
4044444444443 4 ALL OA AA A OA 
4944444444444 4AAAI DA AIA LA LOL ABA 
4944444 1111114444444 44444440404 
4O4LLLI1111111111444444AdddaBadda 
ABAALL111111111111112444444 44 Ad AA 
HO11111211112111111111211144a 434 @4 444 
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ii GLS : FRINT "55555775555558 
ESSSS5555 56555565858" 
2 FRINT 'S55557777555555555957 
F7rTSESES5Bskks" 
3 PRINT "ZE2Z227777P7SEES5555577 
T7SSSSA566E5'" 
+ PRINT "65868658277755577758E587 
FSESESBEBERBEBE" 
ES FRINT "Aaddasas5sss777758555 
SSESSSSBERSS" 
E FRINT "ıl1ll14E:5T777 77555555 
SESSERBESSEF" 
7? PRINT "3SISE146255775445555 
TYS5SSBEE5E5558" 
= PRINT "S5555514E255554 24477 
TYF&8355555445" 
@ FRINT "SESS5424 535146255 55A4dzad 
FTPFFESSLLESEN 
1283 FRINT "EBEdddd4SEbldBEEAdEdtE 
Hey 75555444 
ı1l FRINT '"'442455EET14E 2424 A504 
E4a5BEdeee 
i2 PRINT "z4444555314525445054 
445542444050 
25 FRINT "4445445531482 5555055 
555554424405" 
14 FRINT "eSAdd4z2d53 14625555955 
S5544S4442D4 
15 FRINT "505444445 14.B295855055 
S55444195B405 
1& FRINT 'SGSS=25553 14825555058 
SSS525505598' 
ı7 PRINT "auadaadadaadaddadddddidandd 
44atatadddid‘ 
15 FRINT "49ddddddddttadasgadd 
[2 ee U BE En DE Ei 
ı9 FRINT "4od4daasSılı1ı1ı2 1 i1dddadddd 
4d4addddaibddid' 
ze& PRINT "4ddd4daalı1ı1ı11ı1ı1 1. 11124444 
Dee m en u 2 
21 FRINT "4@4411111121111212121114 
De U Ze 2 
EZ PRIMT '4@1111111214111111121111 
1ı144444Baddd" 
Sg LET a85=:'012345857 
ı938 BEEF .1,28 
1835 LET i$S=INKEYS: IF i4=":*' TH 
EN G0 TO 105 
118 FOR p=i1 TO 8: IF ig=asirı T 
HEN 50 TO 120 
115 NEXT p: Go TO 105 
ız2@0 BEEF 1,50: FOR Jj=-a Tl z2ı. F 
SR k=O TO 512 
125. IF SCREENS (j.,kl=eig THEN PR 
INT RT i.k; PFAPER WAL ig; CHRes 52 
15G NENNT k: NEXT ü 
135 LET a${iPpl='*": IF a$-'r8#88 
=3:*:' THEN TOP 
149 GO TO 1a 
9909 SAauE "MALEN" LINE & 
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STERNEN- 
BANNER 


Wenn Sie versuchen, die amerikanische Flagge auf dem 
Bildschirm. des Spectrum darzustellen, werden Sie un- 
mittelbar mit einem mathematischen Problem konfron- 
tiert. Der Teil der Fahne mit den Sternen ist neun Zeichen 
hoch (ich gehe davon aus, daß Sie das Sternchen-Zeichen 
als Stern verwenden.) Aber angrenzend an diese neun 
Reihen von Zeichen, gibt es nur sieben Reihen von 'Strei- 
fen’, und sieben in neun, das geht einfach nicht. 


Sie müssen daher an 'Bildpunkte’ (Pixels) statt an Zeichen 
denken. Die Sterne haben eine Tiefe von 9X 8 = 72 Bild- 
punkten, nun, sieben geht auch nicht in 72, aber es fällt viel 
weniger auf, wenn man einen Streifen um 2 Bildpunkte 
breiter macht, als wenn plötzlich zwei extra Streifen in der 
Flagge auftauchen. 


Deshalb ist der erste Streifen 12 Bildpunkte tief, und alle 
anderen 10. Man könnte PLOT- und DRAW-Befehle ver- 
wenden, um sie zu Zeichnen, aber ich habe mich dazu ent- 
schieden, die normale Spectrum Graphik zu verwenden 
plus zwei selbst definierte Graphikzeichen (CHR$S 144 = 
6Reihen von Hintergrund Bildpunkten und 2 Reihen 
Vordergrund; CHRS 145 = 2 Reihen Hintergrund (PA- 
PER) und 6 Reihen Vordergrund (INK)). 


Die DATA für die selbstdefinierten Graphikzeichen finden 
sich in Zeile 500. Die DATA-Zeile 1000 enthält die CODEs 
der Zeichen, die zum Erzeugen der Streifen benutzt 
werden. 
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= EORDER ®: PAPER 7: CLS 
19 RESTÜOÜRE : FÜR Jje=UER CHRSE 14 
+ TO USR CHRs4 1d4+15: RERD a: Po 
KE 3.3: NEXT 
AS LET 5$='x » x * + =": REM 
Zuizschenraeume zwischen den Ster 
nen 
zg LET tg=" "4s51 TO 18 
zE FRINT FRPER 1; INK Fiat 
SE te sh tb Eutin 
sa DIM bSi5) “ 
35 FÜR j=d TU 16: RERBb a 
40 FOR K=llstijc<s=e#ı TO 26: FRIN 
T FAPER ?7=#t)j<16); INK 2;RT j.K,C 
HR$ 2;: NEXT k: PRINT PRPER Gb 
+5 NEXT J: DIM bSt{SE 
sa FOR je@a TO 4: PRINT PAPER a 
ibs: NEXT ü 
sa 50 TO 6& 
sea DATHR 80,2,2,0,0,0,255,255,8, 
3,255,255,255,255,255,255 
aooc DATA 143,131,144,143, 125,14 
5,1351,144,145,1285,145, 131, 144.14 
3,125,145,1091 
3000 SRUE "FLAGGE" LINE 8 
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MELODIEN 


Es gibt eine lustige Aufforderung im Spectrum-Handbuch, 
die gesamte erste Symphonie von Mahler als Programm zu 
schreiben. 


Das ist eine fürchterliche Aufgabe, besonders wenn Sie 
jede einzelne Note als eigenen BEEP-Befehl eingeben 
müssen, was die Methode ist, die das Handbuch ver- 
wendet. 


Es wäre um einiges leichter, wenn Sie DATA-Anweisungen 
benutzen, um Tonhöhe und -länge von jedem BEEP festzu- 
legen, wie in MELODIE 1. 


MELODIE 2 verwendet getrennte DATA -Anweisungen 
für Dauer (Zeilen 100 -) und Höhe (Zeilen 200 -), und die 
Daten werden in eine Feldgruppe eingelesen, bevor das 
Lied gespielt wird. Diese Methode erscheint vielleicht 
plump, aber sie erleichtert das ‘Komponieren' ungemein. 
Sie können sich zunächst für die Tonhöhe entscheiden und 
fügen den Wert für die Tonlänge erst später ein. 

Zufällig ist keine der beiden Melodien von Mahler, aber mit 
einem bißchen Glück könnten Sie sie erkennen. 


5 RESTÜRE 
16 RERD P.d: 
ı8 
ı25 Data 12.8 
5,2.,.0,2.2.2,5. 
110 bATA ®,.1, 
EBR,ELB,E,DB: 1, [61 
[2 
l228 DAHTHM 12,2, 
‚5,2, 8,1,0,1,.8, 
120 DATA 5,2,5 
2,5,2,5,3,2,1,2 
2,5,18 
900 SRUE "MELOEB 


Bw 


” on- 
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S BIM piß5Sı: DIM dissı 

19 RESTORE 198: FOR j=1 TO 85: 
REHAD Fiji: NEXT ü 

IE RESTORE z080: FÜR j=1 TU 85: 
RERD dii): NEXT 

za FOR k=-1 TO 5: FOR Jjei TO &5 

z=5 BEEF dis)s-S.,.P1t3) 

SG NEXT ü 

SS PAUSE 280: NEXT Kk: STOr 

189 DATA 7.7 FF FB , 12 
1180 DATA 14.14.14, 14,14, 14,18,1 
1.38,3.9,9 

129 DATA FTNTSTSTLTFTL TFT ETF, D, 


ıı 

138 DATA 14, 14,14, 14, 14,12.11.9 
3 

140 BDATRH 14,14, 14,14, 14, 14,14.1 
+. 324,14, 14,14. 14 


158 DATA 11,38.14.14.12,11,9,7 
z2aG LCATA 2,1.,2,=2,1,2,2.,1,3,2,10 
zi0 DATA 1,1,2,2,2,1,9,2,2,2,8, 
Tgee DATA 2,2,2,2,2,E,1,2,4,1,.1, 
232 DATA 1.1,4,2,2,2,2,82,5 
240 DATA 1,1.1,5,2,1.1.2.2,8,58, 
cd 
=5B DATR 1.1,6,=,2,2.12,8 
=GG2 SAuUE "MELODIE =" 
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OLDIES 
OCHSEN UND KÜHE 
HANGDATA/HANGMAN 


SIMON SAGT 
SKIZZENBLOCK 


OCHSEN 
UND KÜHE 


Die Programme in diesem Kapitel sind fast so alt wie die 
Computer, und sie alle basieren auf Ideen, die so alt sind 
wie die Menschheit selbst. 


Aber die Programme selbst sind neu geschrieben, und 
zwar speziell für den Spectrum. Außerdem sind sie alle 
Beispiele dafür, wie ich diese Ideen in Programme umge- 
setzt habe; verschiedene Programme können zu identi- 
schen Lösungen führen, obwohl völlig verschiedene 
Lösungswege beschritten wurden. 


“Ochsen und Kühe” ist das alte ‘Codebrecher'-Spiel, das 
unter unzähligen anderen Namen bekannt ist, 


Der Spectrum stellt einen Code von vier beliebigen Farben 
aus sechs (ausschließlich Schwarz und Weiß) zusammen, 
wobei alle Farben auch mehrfach auftreten können. 

Sie haben zehn Versuche, den Code zu erraten. Ver- 
wenden Sie die Tasten 1 bis 6, entsprechend den sechs 
Farben, um Ihren Versuch einzugeben. 


Der Spectrum bewertet jeden Versuch, indem er Ihnen ein 
schwarzes Quadrat für jede richtige Farbe in der richtigen 
Position, und ein weißes Quadrat für jede richtige Farbe in 
der falschen Position zuerkennt. 


„ Nebenbei, dies ist nur ein Geschicklichkeitsspiel. Alle Ihre 
Versuche und die Bewertung bleiben auf dem Schirm sicht- 
bar, und sie sollten daher immer in der Lage sein, den Code 
in weniger als 10 Versuchen zu entschlüsseln. In der Tat 
wurde das Spiel ausgiebig untersucht, und es wurde be- 
wiesen, daß es möglich ist, jeden beliebigen Code in 
weniger als 5 Versuchen zu knacken! 
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I REM Ochsen & Kuvene 
= RESTORE : FOR j-=-d TG Tı REr 
bp: FORE USR CHRs ida+i,Prı NEXT 


3 
18 BORLDER 7: FARFER 7: INK =: © 
LS 

28 BDIM aldi: BIM Kid): DIM mid 
3 

SG LET >=1: RAnNbömlIZzE 

49 FOR jel TO 4: LET at(J)=INT 
(RNbs&e)+i: NEMT U 

50 FRINT =5;TRAB 25; 

sa FOR J=1 TOD 4A 

a LET i$=INKEws 

8 IF isc"ı1" OR ir" 
To Ta 

SQ FRINT INK WAL iS; CHR&$ 143,0 
HRe& Se; CHhrRs 32; 

100 IF iS=-INKEY$ THEN 60 TO 196 
az2ca LET btijt=sURlL is: LET cij)=a 


’ THEN G0 


124 NEXT ji: PRINT CHRsS 22: CHRe#& 


138 LET Pp=® 

142 FOR j=1 TO 4 

158 IF bij)=cij) THEN on Sub so 
Bleo NEXT j 

178 IF p=4 THEN co TO raa 

188 FOR je1 TO d: FOR h=1 Tu da 

198 IF bIiJI>@ AND bLij)scih) THE 
N Go SUB e8@ 

208 NEXT hk: NEXT J 

21i® PRINT : PRINT 

228 IF NOT P THEN BEEP .S,2: 60 


=386 FÜR J=p TO 35: BEEP .1,5: NE 
xXT u 

248 LET s=s+1: IF z:<:=10 THEN GO 
ro 58 


zaGa FRINT 'bu hast den Code'nic 
Ht geknackt" 

318 PRINT TAB 5;: FOR j=i1 TO 4: 
FRINT INK a1(J1;)CHRs 14T, CHRS 22 


;scHRs 52,: NEXT Ü 
Ss28 INFUT '‘P um weiterzuspielen 
x um auf- zubßeren "jaß 


"s3@ IF a$s="p" THEN Run 
348 IF a$g='x" THEN stop 


233 EAılT Elfe 1s5;cHRs =2:: BE 
EP .081,58: LET bij)=0: LET cij)= 
@: LET P=Pp+1: RETURN 

2. \ Ba 
EBreaHradT EERFL FSB ein FE 
8: LET P=p+1: RETURN 

7@8 PRINT AT =42,%; INK 2: FLAs 
H A;"RICHTIG BEI "is 

zı2 50 TO 328 
188@ DATA 255,129,129, 129. 129,12 
S,12=,255 
S980 SAUE "D&K" LINE 0o 
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-HANG- 
DATA/- 
HANGMAN 


Versuchen Sie mir nicht einzureden, Sie hätten noch kein 
Hangman-Programm. Es gibt eines im Spectrum-Hand- 
buch! 


Der Hauptunterschied besteht darin, daß diese Version 
eine ‘Datei’ mit Wörtern besitzt, so daß Sie das Spiel für 
einige Zeit spielen können, ohne daß Sie eine zweite Per- 
son benötigen, die Ihnen neue Wörter zum Raten eingibt. 


“Hangdata" ist das Programm zum Erstellen der Datei. Sie 
können so viele Wörter eingeben wie Sie wollen, die 
Grenzen liegen bei der Speichergröße des Spectrum und 
bei Ihrer Geduld. Ich argwöhne, daß die letztere das Limit 
setzen wird. 


Die Wörter sollten nicht länger als 32 Zeichen sein, aber 
sie können Leerzeichen, Bindestriche, oder, wenn Sie rich- 
tig gemein sein wollen, auch Graphikzeichen enthalten. 


Um Probleme mit großen und kleinen Buchstaben zu ver- 
meiden, enthält “Hangdata” jedoch eine Routine, umi kleine 
Buchstaben in große umzuwandeln (Zeile 70). "Hangman" 
enthält ähnliche Routinen (Zeilen 110 und 180). 


Wenn Sie Ihre Wörter eingegeben haben, werden sie auf 
Band gespeichert, um automatisch durch das Programm 
“Hangman” geladen zu werden. Es wäre daher ideal, wenn 
auf Ihrem HANGMAN-Band unmittelbar nach dem Pro- 
gramm “Hangman” eine durch “Hangdata” erzeugte Datei 
folgen würde. Es gibt jedoch keine Begrenzung für die 
. Anzahl der Dateien, die Sie erstellen können, und es wäre 
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eine gute Idee, eine Bibliothek von Dateien zu erstellen, 
mit verschiedenen Schwierigkeitsgraden für verschiedene 
Altersgruppen. 


19 PRINT "Wieviele LWverter will 
ist Du sin- geben”T" 

280 .INMFUT nm: GLS 

Sa GIM w$sin+1,335): LET w$il)=S 
TrRS rn 

458 FOR i=-2 TO n+il 

S® INPUT {V’Eingakbe Wort BB", 3-1 
N 

S5@ LET L=LEN t%$: IF NOT L OR ı 
‚Sz2 THEN GO TO 54 


78 FOR k=-1 TC L: IF t8$8iKk)r="3" 
FHDb tg$ik)c<='z' THEN LET t$IK)=0 
HRS [CODE tLSiKI-ZGE) 

50 IF tS$fk)s<sCHRs$ 52 THEN 50 TO 
Sa 

= NEXT K 

180 LET ws(J}=CHR4 L+ts 

118 FRINT t3%: NEXT ji 

128 SAUE "dafs" DATA u 28 

13520 STOP 
sosB CLEAR : SAUE "HANGCATA" LIN 
E © 4 
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HANGMAN 


Diese Version ähnelt so sehr der alten ‘Papier-und-Blei- 
stift'-Version, daß nur wenige Worte zur Erklärung nötig 
sind. 


Der ‘Manr” und der ‘Galgen’ werden Strich für Strich ge- 
zeichnet, und Sie sind ‘tot’, wenn die Zeichnung beendet 
ist. (11 falsche Versuche). Es gibt keine ausgearbeitete 
‘Todesroutine’ wie im Spectrum-Handbuch! 


Die beiden DATA Zeilen (1000 und 1010) enthalten die 
PLOT- und DRAW-oordinaten für die Zeichnung. Für 
jede Linie werden je zwei PLOT- und DRAW-Koordina- 
ten benötigt, außer für den Kopf, der - welche Über- 
raschung - durch den CIRCLE-Befehl in Zeile 2000 ge- 
zeichnet wird. 


Wenn es Ihnen mißlingt, das Wort zu erraten, dann blin- 
ken die fehlenden Buchstaben auf dem Bildschirm (Zeilen 
510-530). 


Wenn Sie alle eingegebenen Begriffe verwendet haben, 
dann können Sie entweder: 


- RUN eingeben und eine neue Begriffsdatei laden 
oder 


- GO TO 10 eingeben und die gleichen Begriffe - in ge- 
änderter Reihenfolge - erneut benutzen. 


> LOAD "data EATF ww) 

129 EORLCER 4: FRPER 4: INK = 

iS LET n=4AL wsStl} 

=& BIM win’: LET u=1 

=25 CLS : RESTORE 

za IF INKEYE=S"pR" OR INKErs='mr' 
THEN GO TO 350 

35 LET s=INT (RNDan) + 

4a FOR j=sl TÜü u: IF wijj=w THE 
N Go TC 

45 NES 


3: LET wduiswu: LET veu 
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+1 

SS LET t$5=wgiu,2 TO CODE wSiW, 
i!+1lı: LET L=LEN t$ 

SS FOR jel TO L: FRINT AT EG... 
CHR# 45: NEXT ij: LET je 

EG LET r=@ 

108 LET isk=-INKEws: IF is$<CHRs 5 
2 THEN GO TO 120 

ı1la IF ik:=-"2' AND is<='z' THEN 
LET i$ HRes (CODE i8-232)1 

128 LET x=1: FÜR k=1 TO ı 

139 IF t$i(ik)=i$ THEN PRINT FT © 
‚Kiis: LET xe8: LET t$(k)lecHBbs 8 
: LET rer+l 

145 NE=T Kk 

150 IF x THEN LET JjJ=j+l: Go SUB 
zaaE 

ıi680 IF i=11 THEN GG TO San 

ı17& IF r=i THMEN GG TO eacs 

ı59© IF InNKErs=-is OR INKEYS$SSCHRS 
CODE is+721 THEN Gn TO 130 

sa Goch TO 108 

Soa PRINT AT 15,15; FLASH 1; IN 
K 2; FRAPER 7 "FRLSCH'" 

sıa FOR k=1 TO UL 

s2® IF t8Sik)<>CcHARg © 'THEN FRINT 
FT @2,&6k; FLAsn 1; INK 2; PAFER 7 
tik) 

S52 NEXT K 

S498 IF u=n+1l THEM PRINT AT ZIi,2 
ALLE EINGEGEBENEN WORTE URF- 


WENDET": G0 TO s929 

559 FRINT AT 21,80; "DRUECKE F UM 
EIN MEUES SPIEL ZU O SPIELEN 
CSbER x UM MUFZU- HOEREM" 


SsE5 IF C INKEr$="Pp'" DR O INKEXE=S"'P* 
THEN GO TO 25 

S7& IF INKErg="x" OR INKEYE=-"H' 
THEN 50 TO #339 

S59H 00 TO 558 

saa FRINT AT 15,15; FLASH 1; IN 
r 2; FRFER 7, "GESCHAFFT" 

519 G0 TO 549 

oa DATA 18.490,.4&.2,40,40.,0.,72. 
40,112,24,08,864,112.8,-10.,.40,100, 
ız2,1i12 

ala DrATtTrn 54.93#8,8,684,990.8,-44,854 
‚B86,-5,-12,684.,8558,8,-12,64,52,-12 
‚2,E4,52,.12,= 

zaaa RERD a,b: IF j=-6 THEN RERD 
=: CIRCGLE a,b,c: 50 TO 2020 

zulo FLOT a,b: RERD 2.d: BRAU cc, 


zdza RETURN 
saagıa CLERR : SAVE "HRAHNGMANMN" LIN 


9233 STCOrF 
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In der althergebrachten Version dieses Spiels mußte man 


alles wiederholen, was ‘Simon’ tat, wodurch oft ziemlich 
groteske Situationen entstehen konnten. 


Die Computerversion ist sehr viel 'würdevoller’. ‘Simon’ 
» (Spectrum) präsentiert Ihnen eine immer länger werden- 
de Folge von Farben und Sie müssen diese Folge wieder- 
holen, unter Verwendung der Farbtasten ® bis 7. 


Zu jeder Farbe gehört ein spezieller Ton, und sie wird an 
der Stelle des Schirms angezeigt, die der entsprechenden 
Tastenposition entspricht, Wenn Sie das Spiel wirklich 
schwierig machen wollen, dann versuchen Sie, es aufeinem 
Schwarz-Weiß-Fernseher zu spielen. (Mein bestes Ergeb- 
nis war dabei 5). 


Bei einem Farbfernseher ist es natürlich möglich, erheblich 
höhere Ergebnisse zu erzielen. Allerdings ist das Spiel 
mehr als ein einfacher Gedächtnistest, da die Spielge- 
schwindigkeit, mit wachsender Länge der Folge, erheblich 
zunimmt. 


Unterprogramm 1000 erzeugt die Farbanzeige und die 
Töne. 


Die 'Zeitvariable’ t ist umgekehrt proportional zur Länge 
der Farb- und Tonfolge. 


Wenn (falls!) Sie einen Fehler machen, dann wiederholt 
Zeile 510 die Folge, nachdem sie t auf einen konstanten 
Wert von 0,8 Sekunden gesetzt hat, durch Aufrufen des 
Unterprogramms ab Zeile 1005 anstelle von Zeile 1000. 
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F ii REM SIMüOnN.SAGT 
5 BEORbER 7: PAPER ?: INK m BE 


RISHT a: CLS : BDIM bSE(i327I 
1a RANDOMIZE 
iS LET 
za LET ® (RND=#E) 
5 LET vsS+ESTRs$ = 
sa LET De 
SE FOR ij Ton 
eG LET I ee) 


45 GC sus ı00@ 

sa NEXT 

i8@ PRINT FT 29,2; "Jetzt wieder 
holen Sie die Folge" 

185 FÜR j=-1 Ton 

118 LET is=INKEr$ % 
115 IF ig<'e" OR ig>"?7" THEN 60 
ro 118 

128 LET x=UAL is 

125 GO SUB 1800 

sa IF INKEY$=sigs THEN 50 TO 198 
155 IF i$s<rr$tj) THEN co TO So@ 
i14@ NEXT ü 

145 FRINT AT 20,0; b$; FT 298,0" 


bisher geschafft : "mn 

ı8s@ FOR j=1 TOD 1908: NEXT ü 

455 CLS : 50 TO =08 

sa@ PRINT AT 208,8; INK ©; FLASH 


A; IRRTUMIIIII. Die Folge war 


EOS FOR J=1 TO 2585: NEXT ü 
ei LET t 8: FOR j=1 TOn: LET 
xeurnl rStl GO SUB 1985: NE=T 


"sıs FRINT AT 29,0; ES; AT 29,0, "8S 


ie erreichten ";jn-1''Druecken Si 
ze’ "R'' zum weitermachem‘ 
s2@a IF INKEYsc:'r" THEN GO TG SS 


zo 

sz@a RUM 

ı909056 LET t=1i.n 

1B9S5 FRINT FT 68,x295+350»*(x=0); IM 
RK x; BRIGHT 1;CHRS&S 143;: BEER t. 
x#7+S5BE8*(ix=0): FRINT CHRs S:;CHr$ 
s= 

ıgıoa RETURN 

geaag SAUE "SIMON SAGT" LINE & 
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SKIZZEN- 
BLOCK 


Warum den Computer nicht als Skizzenblock verwen- 
den? Diese Programme machen Spaß, und Sie können 
einige echt gute Bilder mit der hochauflösenden Graphik 
des Spectrum entwerfen. 


In diesem Programm zeigt ein ‘Punktcursor’ die gegen- 
wärtige Zeichen-(DRAW)-Position an. Die 'Pfeiltasten' 5 
bis 8 veranlassen, daß eine Linie in der angezeigten Rich- 
tung gezeichnet wird, Sie können den Cursor bewegen 
ohne zu zeichnen, indem Sie auf Taste "1" drücken, wo- 
durch der Cursor blinkt, und dann die Tasten 5-8 wie vor- 
her verwenden. In diesem Modus durchquert der Cursor 
auch früher gezeichnete Linien ohne sie zu löschen. Um 
weiterzeichnen zu können, drücken Sie auf “®”, und Sie 
erhalten wieder den normalen Cursor. 


Zum Löschen einer Zeile drücken Sie "8" (Sie werden jetzt 
annehmen, daß der Spectrum knapp an Tasten ist, weil ich 
zwei völlig verschiedene Funktionen auf die 'O-Taste’ ge- 
legt habe), und die Richtungstasten werden jetzt löschen. 
Zur Rückkehr in den normalen Modus wieder "@" 
drücken. 


Ein interessanter Punkt zum Merken - das hat nichts mit 
"Skizzenblock” zu tun, aber das ist das einzige Programm, 
bei dem ich diese Technik angewendet habe: 

Wenn Sie die Bedienungsanweisungen für ein Programm in 
eine REM-Zeile am Ende dieses Programms schreiben, 
dann können Sie diese Zeile während des Programmlaufs 
LISTen und dann im Programm weitermachen (siehe Zeile 
1). Ich weiß nicht, ob das irgendwelche Vorteile gegenüber 
einem PRINT-Befehl hat, aber es ist etwas, was die meisten 
anderen Rechner nicht tun, und deshalb wollte ich es 
irgendwo erwähnen. 
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1 REM Skirzenblack ; 
= EÖRbER 7: INK a: FRAPER 7: 


[e) 


LS : LIST 5392939 
5 IF INKErs<>'r‘ 'THMEN G0 TO =& 
19 LET bewege: LET halteo 
15 FAPER @: BORDbER ©: INK 7: 5 


z&6 LET x1=-0: LET vl=ß 

25 LET x=0: LET y=&C 

SG LET xlex4xl: LET gil=y+yl 

3585 IF INKEVS$=-'38' THEN LET beue 
9=NTT beveg: LET halt=g 

3G IF INKEr’S$S="1" THEN LET beue 
3=l: LET halt 


ı 
45 IF INKErg='0 'THEN 50 TO 45 


55 LET x-{ NKEWS=E" SI FIX LI2SE 
I1- Li INKEW$E=S'S'J six ro1) 
55 LET m=l(INKESseE' Tl HI LISLTE 
13 -kCINKEWE=S"R "1 #iyısa)ı 
580 IF halt=1 AND FOINT ix1,u1l9 
=i1 THMEN Gau TO za 
ES O PLOT OLER B;xl.,uil 
”® IF beweg=-l THEN FLOT GOWUER 1 
IBMAL,yi 
„Ss 50 TO 56 
zagaa SAUE "SKIZZEH" LINE @ 
933 REM Benutze die Pfeiltssten 
zum Malen 
Benutze Taste 1 um den 
Eurzor zurVueckzustellen 
Benutze Taste © zum 
Loeschen Benutze Taste a zum 
Abschalten der LoeschsRusckztell 
runktion 
Bruvecke R zum Starten 


Lösung zu der Aufgabe auf Seite 104. 


PROGRAMM LÖSUNG 
ELSE 
FOR x=78 TO 188 STEFP 


FÜR u=56 TC 240 ESTER 
FLEOT OH,G 
MEXT Y: MENT x 
FRINT RT 2,53, "Bruecke irge 
ndeine Taste fuer die Loesung‘: 
FAUSE © 

49 PLOT 180, 1do 

SQ RESTORE : For ıTtTa ®: RER 
D s.,6: DRAW a,b: PAULSE zu: NEXT 
Jı STOP 

ı92a DATA -59,0,90,-90,290,09,-120. 
ı20.0,-159,94,20 
Fam EALE "LOESUNG" LINE & 
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SAM, SPIEL 


ESIMMER 
' WIEDER... 


SKYLINE 
SPIESSRUTENLAUF 
UFOS 
FEUERKRAFT 


 SKYLINE 


Sie sind der Kommandant eines außerirdischen Raum- 
schiffs, das auf der Erde landen möchte. Nachdem Sie eine 
der großen, modernen Städte wie London oder New York 
ausgesucht haben, in der überaus optimistischen Hoffnung, 
Sie können dort intelligentes Leben vorfinden, machen Sie 
Ihren Anflug. 


Sie übersehen vollständig, daß es in der Nähe große, gut 
ausgebaute Flughäfen gibt, und fliegen direkt ins Zentrum 
der Stadt. 


Die Wolkenkratzer könnten ein Problem für Sie be- 
deuten, aber Sie nehmen an, daß es sich dabei nur um 
große Schutthaufen handelt (ein ganz natürlicher Fehler) 
und beschließen, den Erdlingen einen Gefallen zu tun, 
indem Sie sie einebnen und eine Landebahn bauen. 


Es gibt drei Möglichkeiten, wie Sie einen Wolkenkratzer 
zerstören können (immer nur ein Stockwerk auf einmal): 


1) mit Bomben (Taste *0") 
2) mit Raketen (Taste “9”) 
3) indem Sie ihn mit Ihrem Schiff rammen. 


Diese letzte Methode ist nicht empfehlenswert, denn Sie 
haben nur vier Schiffe, mit denen Sie eine erfolgreiche 
Landung durchführen sollen. 


Das Hauptziel des Spieles ist es, alle Gebäude einzuebnen, 
um dadurch einem Ihrer Schiffe die Landung zu ermög- 
lichen. Punkte sind nur von untergeordneter Bedeutung, 
Was nützt Ihnen ein hohes Punktekonto, wenn alle Ihre 
Schiffe zerstört sind? Andererseits können Sie nur dann 
eine Rakete abfeuern, wenn Sie einen positiven Punkte- 
stand haben. 


Punkte werden wie folgt vergeben: 
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1 Punkt für jedes Stockwerk eines Wolkenkratzers, 
das durch eine Bombe zerstört wurde. 

-20 Punkte, wenn Sie eine Rakete verwenden 

-20 Punkte, wenn Sie ein Schiff verlieren 


Bonuspunkte für eine erfolgreiche Landung: 


400 für eine Landung mit dem ersten Schiff 
300 für eine Landung mit dem zweiten Schiff, usw. 


Ihre wichtigste Waffe sind daher Bomben. Sie fallen immer 
senkrecht, aber sie können natürlich danebenfallen, was 
Zeit kostet. 


Raketen sind teure Waffen und sollten nur in Notfällen 
benutzt werden (und auch nur dann, wenn Sie einen posi- 
tiven Punktestand haben, damit Sie sie überhaupt anwen- 
den können). Raketen werden waagrecht abgeschossen 
und treffen IMMER. Wenn kein Wolkenkratzer direkt vor 
hnen ist, dann fliegen Sie ‘hinten’ um den Bildschirm, bis Sie 
vielleicht einen treffen. Der Abstieg Ihres Schiffes ist ‘ein- 
gefroren’, während eine Rakete in der Luft ist, Sie könnten 
sie also auch einmal verwenden, um eine Atempause zu 
erhalten und sich Ihre weitere Vorgehensweise zu über- 
legen. 


WAFFEN: S=Rakete e=Ennbe 
FUNKETE:G :HIFFEOCZERSTOERT:S 


% 

* 

* 

I 

% 

hd 

* 

= | Do El 

[=] oO je DonDon 
OD [en] oo ce 06 
oO co Do oa Do 
[=] co 00 055oon2 cc GC 2 
"| or) 00 CEXEH EG DD oo DD 
OD DECO CE2 „DEREN 0 DIE [e = ne} 
OD O0 OOO CCEEEE [DI CE CIE DD 
0 O0G05 CEO DICKE 0 CE COX DI 
O „CEEE CE CIIEEO OD CO DIE D 
0 DOcO oroo OECD CO DIIEEN 
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ı DATA S,255,227,2559, 108,255, 
127,255 
z DATA 2,192, 2490,282,191,252 
za, 192 
= DATA d2,82,258,52,82,682,28,5 
4 DATA 255,3255,195,.195.195,18 
=,255,255 
S5 DATA 9,9,152,198,255.195,.15 
2,8 
18 FOR 9=1 TO 5: RESTORE 4 
415 FOR jea Tu 7 
az READ a: FÜRE WSR CGHR$ (geld 


Sıri,a 

=5 NEXT ü 

308 NEXT 9 

40 LET 2$5=C0HRs SE+CcHRs L1d4d4HcHre 
$ 145: LET bS=CHRs$ 14m 

Sa FRANDCOHIZE 

190 BORDbER E: FAFER ©: INK SS: © 


135 DIM tsil1,220 
ı1© FÜR j=11 To zı 
115 IF j>11 THEN LET t$t(Jj-1B1=t 


2a FOR k=i1 TO 4: LET tgij-ia,ı 
INT IRND=Szı +1) =SCHR& 147: NEXT 
k 

a2&5 FRINT INK ?7;RT 3.0; tSiJ- 105 
ı1352 NET. 

FRINMT art S,2% INK 7; "WRFPEN 
B Rskete a=-Bonmbe' 

zoa LET sce-ü: LET s5le 

SOE LET z=zl#s2+2: LET y=9: LET 
bf=®8 

zı8 FRINT AT 1.6; IHK 4; "PUNKTE 
; "jsc; TAB 11; VSCHIFFE ZERSTOERT: 
“ish 

ZIS FRINT FT x.4388& 

zzB IF INKEWS="G" AND bf=38 THEN 
LET bf=el1: LET bx=xk: LET kby=u: BE 
EEFP .O1,25 

zas IF bf THEN IF x=28 THEN LET 
Er=INT iRHRDFZ} 

85a IF INKErg=-"@' AND =c>0 THEN 
GO TO zeaoe 

235 IF bf THEN 50 SUE 16088 

35098 LET v=4+1 

GOES IF ya5z THEN LET w=: LET * 
ex+l 

314 IF x=21 AND yeöo THEN Go TO 
TazE 

ssa IF x:i1 THEN GO TO zZiI6 

355 LET 3=x-1G: LET b=y+3: IF b 
>32 THEN LET b=b-S2: LET a=aHrl 
sesQ@ IF t$i5,bi<>CöhHks 147 THEN G 
oO TO z18 

388 FOR k=7 TO a ZSTEP -1: FRINT 
RT x,u; INK Kk)j=28$: BEEPF ,„1.%*%: NE 
“MT K 
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3sra LET t$ia,b)I=CHRs 52 
375 LET si=si4l: LET zı=s5c-20 
3858 IF bf=1 THEN PRINT AT bx,bu 
;ICHRS 32 
35585 IF 2s\.=4 THEN 50 TO daua 
seo so TO 205 
ı89G FRINT AT bx,byu;CchHRs BE 
19895 IF bx=21 THEN Go To 1050 
1818 LET bEx=ebx+1 
1915 IF bx<il THEN Go TO 1025 
1029 IF tS(bx-10,bu+l)=CHRs 147 
THEN 50 TO 1108 
1025 PRINT INH 2;AT bx.buibs 
1850 IF bx=21 THEN BEEF .GaS,S: F 
RINT AT bx,by;Crks Se: LET b,f=& 
12420 RETURN 
11908 LET scesc+1 
1108 LET bf=0: LET t$ibx-10.,burl 
IecHRs 58: PRINT, AT bx,bW;üHRs 5 
= 
ı111a BEEP .ai,ssE 
1118 RETURN 
29009 LET a=x: LET b=y+3: IF b>51 
THEN LET b=eb-582: LET a=sarl 
ZBOS LET FIesc-zu 
ZB1@ IF =2:=11 THEN 50 TO z20d4& 
2818 FRINT FAT x,u; INK I+tbrz=IN 
T ibegIi); SH 
zaozsa FRINT AT a,b; INK 
=} 
za25 BEEF .al.d® 
z03@ FRINT AT a,biCHRs 32 
2035 LET b=eb4+4l: IF b=32 THEN LET 
b=8: LET samaH+l 
2e4@ IF a<11 THEN 50 T5 2818 
2045 IF t$ia-18,b+i)=ChRs 147 TH 
EN LET t$is-10,b+li=CcHks 52: PRI 
HT AT a,b; CHR$ 32: EEEPR 1,35: 60 
TO 218 
2054 IF a=&1 AND b=51 THEN Sc TO 
zıa 
2aS5S5 GO TO ze1lE 
40@2@ PRINT AT 18,5; INK 2; FArER 
7: FLASH 1: "ALLE SCHIFFE VERLOR 
EM" 
48505 50 TG Sola 
SQ99@2 FRINT AT 18,15; 
R 7; FLASH 1: "SIEG 
@ax(4-s1) 
SOGS5 PRINT AT 1.2; INK 8; PAPER 


2; CHrS& 14 


IME 
LET 


8; FLASH L: "PUNKTE '":m“ 
Ssa1l0 PRINT AT 15.5; FARER 7; INK 
2; "bruoecke "F' zum Weiterspiele 


sat ı7,10; "oder "X zum Aufhos 


INKEwWs='"x<x' THEN 50 TO Sa 


5a2za IF IHKEY&='"Pr' THEN Run de 
sa2z5 50 TO 54615 
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Ssea320 FAPER 5: INK a: CGL=S : PRINT 
AT 14,15: "EYE": STOR 
3098 SAUE "EHRYLINE'" LINE © 


ANMERKUNGEN ZUM PROGRAMM 
Die vier selbstdefinierten Graphikzeichen sind: 


CHRS 144 und CHRSS 145: Ihr Schiff 


CHRS 146 : Bombe 
CHRS 147 : Ein Wolkenkratzer-Stock- 
werk’ 


Die ‘Silhouette’ wird durch die Zeilen 105 bis 130 erstellt. 
Die Feldgruppe t$() enthält die Position der einzelnen 
Hochhäuser, und wenn Stockwerke zerstört werden, 
dann werden die Werte in der Feldgruppe entsprechend 
verändert. Das Programm liest nicht den Bildschirm- 
speicher, was beim Spectrum grundsätzlich nicht möglich 
ist, es benutzt auch nicht ATTR oder SCREENS, um die 
Anwesenheit eines Häuserblocks festzustellen, sondern es 
vergleicht lediglich die Position von Schiff/Bombe/Rakete 
mit dem entsprechenden Element von t$. 


Die Hauptschleife des Programms, nämlich das Herunter- 
. gehen des Schiffes, liegt zwischen den Zeilen 200 und 360 
(oder es geht bis 250, wenn das Schiff in der oberen Hälfte 
des Schirms, oberhalb der Wolkenkratzer fliegt). Die 
Zeilen 365 bis 390 behandeln den Absturz eines Schiffes. 


Unterprogramm 1000 zeichnet die Bombe in der jeweili- 
gen Position, wobei die Zeilen 1100-1115 den Treffer an- 
zeigen. 


Unterprogramm 2000 zeigt die Rakete an, genau auf die 
gleiche Weise wie’ die Schiffs-Landeschleife, und es kann 
erst nach einem Treffer verlassen werden (Zeile 2050). 
(Beachten Sie: Zeile 2045 ist eine Art ‘Idiotensicherung‘. Es 
gibt absolut keinen Grund, Punkte zu verschenken, indem 
man eine Rakete abfeuert, wenn bereits alle Hochhäuser 
zerstört sind, aber falls irgend jemand das tut, dann wird 
die Routine durch diese Zeile beendet, sobald die Rakete 
die rechte untere Ecke des Bildschirms erreicht.) 
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Wie kann man das Spiel einfacher/schwieriger machen? 


Die Anzahl der Hochhäuser wird durch das Limit von k in 
Zeile 120 kontrolliert. k=1 TO.3 macht die Abstände 
größer, k=1TO 5, macht sie kleiner. Zeile 225 hindert. den 
‘Bombenknopf daran, daß er jedesmal funktioniert, wenn 
Sie gerade zur Landung ansetzen, Dadurch kommt ein 
wenig "Torschlußpanik’ ins Spiel, da Sie gewzungen sein 
könnten, Raketen einzusetzen, um ein paar Erdgeschosse 
zu zerstören. Wenn Sie das zu frustrierend finden, können 
Sie diese Zeile komplett löschen. 


Um die Anzahl der Schiffe zu verändern, müssen Sie Zeile 
385 ändern. Ulm die Punktevergabe zu verändern, schauen 
Sie in den Zeilen 375 (Absturz), 1100 (Bomben), 2005 
(Raketen) und 5000 (Bonus) nach. 
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SPIESS- 
RUTENLAUF 


“Spießrutenlauf” ist ein Spiel, das ich ein “Kriegsspiel für 
Pazifisten" nennen würde. Sie werden ununterbrochen 
angegriffen, aber Sie selbst sind nicht in der Lage, den 
Gegner in irgend einer Weise anzugreifen. Sie müssen ver- 
suchen, die Niederlage durch die Anwendung Ihrer ver- 
schiedenen Verteidigungsmechanismen abzuwenden. 


Ihr Raumschiff startet oben links am Schirm und bewegt 
sich im Zick-zack nach unten, bis es schließlich unten links 
am Bildschirm landet. (Beachten Sie die Richtungsumkehr 
im Gegensatz zum 'hinten herum fliegen’ bei "Skyline“). 


Der Gegner bedient die Laserkanonen am Fuß des 
Schirms. Ein Treffer zerstört nicht direkt Ihr Schiff, aber er 
vermindert Ihre Energiereserven, die der Schlüsselwert in 
diesem Spiel sind. Sie beginnen mit 1000 Energieeinheiten, 
und diese werden eine nach der anderen verbraucht, 
während Sie den Bildschirm überqueren. Sie können zu- 
sätzliche Einheiten bei den ‘Stationen mit dem grünen 
Kreuz’ an verschiedenen Stellen während Ihres Abstiegs 
nachladen - wenn Sie also den Laserstrahlen ausweichen 
können, dann sollten Sie in der Lage sein, sicher zu landen. 


VERTEIDIGUNGSMECHANISMEN 
Die folgenden Einrichtungen verleihen Ihnen alle einen ge- 
wissen Schutz gegen die Laser, aber sie alle verbrauchen 


Energie! 


Taste Energieverbrauch Wirkung 


® 5 Einheiten Vermindert die wirksame 
Reichweite der Laser 
9 10 Einheiten Vergrößert die zeitlichen 


Abstände zwischen den 
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Laserschüssen 
8 20 Einheiten Erhöht die Geschwindigkeit 
Ihres Schiffes 


ı RESTORE : FOR j=-0 TO 25: RE 
AD a: FOKE WESER ICHRS 144) +,j,a: N 
EXT uj 

5 BÖRDER 9: PRPER 8: INK 7: © 
15 

29 RANDCOMIZE 

15 LET e=id06: PRINT "RESTENER 
GIE ";e 

za LET 3=2: LET b={o 

ES FOR j=-3 TO 1& STEP 5: FRINT 
AT 3,®8; INK A,CHR$ 148; AT 3,31; 
INK +: CHRs 14; AT Z1,4=Jjr53, INK 
3; "tr": NEXT j 

35 LET sS#s=CHR#6 ilddartasrzz> INT 
(Bra)! 

49 IF e<d 'THEN LET == 

45 FRINT AT S,12)8:CHRs Sa: cher 
$ 52: IF e=0 THEN GO TO S59@ 

Sa PRINT AT a.6b: INK 68:58 

55 LET t=?7?: IF INKEYS='"9' THEN 
LET. #=2-10: LET t=4st+Rnbsıid 

20 LET Leide: IF INKEYs#='60' TH 
EN LET e=2-S5: LET L=INT (RNDxsidda 
2 +1 

E65 50 SUB 1000 

78 LET ans=a LET bn=b 

75 IF INKEWs="5'" THEN LET e=e2- 
=8: LET bnekn-Z+dsiss=CHhRs 1ddı 

S5® LET bEneen-iIH+2xis$=CHRs 144) 

IF ben >31 GR bn<S THEN LET an=a 
n+3: LET bLn=51#(286=-CHRk 144): IF 
an=Zza THEN GO TO 550 

S5 FRINT AT a,b; CHrs 32 

8 LET z==-1: IF ATTR fan,bn)= 
4 THEN LET e==2+INT IRNb#1lGG) +75: 
BSEEF „1,55 
00 LET a=an: LET been: GO TO = 
= 
Sa@a PRINT AT 3,9%, INK zZ; FLASH 
1; "SCHIFF ZERSTOERT'" 5 
Sı@a FOR j=7 TO @ STEF -1i: FRINT 
AT a,b; INK 4; BRIGHT 1;'=*": BE 
EF .5,4#8&: NEXT ü 
Ssz0 GO TO E00 
SEA FRINT AT 3,1; INK di FLASH 
1,"SICHER GELRANDBET.GUT GEMACHT" 
EO@ IMPUT "Druoescke F zum weiter 
spielen, x zum Rufhoeren ";s® 
S1i@a IF z$="p'" THEN Run ı5 
BE2EQ0 IF 2$='x:' THEN 50 TO 9925 
E50 GG TO 800 
1500 LET x<=INT tRND=#t)I+1: IF x r& 
THEN PRUSE 5: RETURN 
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I9R5 LET Kedzsexrd 

ı2a1ld FLOT INK 2;%,%9 

IAB1E LET c=üQ: DRAEU QUER 1; INK. = 

‚@,L: IF ATTR t3,b}«>& THEN LET 

geil 

ıoz2a BEEF O ,Bil,1L.3 

190=25 IF < THEN FRINT FLASH 1: PA 

FER O Z;AT =,b;"=*': BEEF 1.20: LET 
ese-INT {RNDs>EG) -1005 

I932 PLOT QUER 1; INK 2;)x,.0: DR 

KO DOWER 1; INK 2:98,41 

1955 RETUFHN 

900 DATA 9,224, 112,255,112,224, 

2,92,0,7,14,255,14,7,0,92,50,6&0,25 

5,255,255,255,50,60 

sand SAUE "GAUNTLET" LINE © 

99a STOP 


ANMERKUNGEN ZUM PROGRAMM 


Das Programm verwendet zwei selbstdefinierte Graphik- 
zeichen, eines für ein Schiff, das nach rechts fliegt, und das 
andere für ein Schiff, das nach links fliegt. 


Die schnellen Laserschüsse werden durch die DRAW- 
Befehle im Unterprogramm 1000 erzeugt. 


Ein Treffer wird gelöscht durch die ATTR-Funktion in Zeile 
1015. Das Schiff wird in Farbe 6, der Laserstrahl in Farbe 2 
angezeigt; deshalb ändert der Laserstrahl die Attribute der 
Schiffsposition von 6 auf 2, wenn ein Treffer erzielt wird. 


Die Länge eines Laserstrahles wird durch die Variable 1 be- 
stimmt (normalerweise 144 Bildpunkte, aber reduziert, 
wenn INKEYS$S = "8", Zeile 60). 


Welcher Laser gerade feuert, wird durch die Zufallszahl x 
(Zeile 1000) bestimmt, und wenn x größer ist als 6, dann 
fällt kein Schuß. Die Zufallszahlliegt innerhalb der Grenzen 
1bis tt, d.h., je größer der Wert von t wird, um so geringer 
ist die Wahrscheinlichkeit, daß ein Schuß abgefeuert wird. 
t ist ursprünglich auf 7 (für fast ununterbrochene Schuß- 
folge) gesetzt und wird vergrößert, wenn INKEY$ = "9" ist 
(Zeile 55). 
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UFOS 


In “Skyline” hatten Sie alle Waffen, und der Verteidiger 
hatte keine. In "Spießrutenlauf" hatte der Verteidiger alle 
und Sie nichts. Ist es nicht allmählich an der Zeit, für einen 
ausgeglicheneren Wettstreit? 


In diesem Spiel bedienen Sie die Raketenstationen auf der 
Erde, aber anstatt passiv darüber herumzufliegen, werfen 
die gegnerischen Untertassen pausenlos Bomben auf Sie. 
Was noch schlimmer ist: Während Ihre Schüsse senkrecht 
nach oben geschossen werden müssen, haben die Unter- 
tassen die unangenehme Fähigkeit, diagonal auf Sie feuern 
zu können. Sie setzen auch von Zeit zu Zeit ‘unsichtbare’ 
UFOS ein, die nicht leicht zu treffen sind, die Ihnen aber 
Bonuspunkte einbringen. Und um es noch schwieriger zu 
machen, sind die ‘Ringe’ der Untertassen ‘ätherisch’, Sie 
müssen also einen direkten Treffer auf dem Mittelteil des 
Flugkörpers landen, um Punkte zu erhalten. Andererseits 
ist Ihre Basis sehr verwundbar, und Sie können leicht seit- 
wärts in Bomben hineinlaufen, die Sie ansonsten verfehlt 
hätten. 


Ihre Steuertasten sind “8” und "9”, um nach links und rechts 
zu steuern, und "@” zum Feuern. Das Spiel ist beendet, 
wenn 50 Uhtertassen erfolgreich über Sie hinweggeflogen 
sind, und Sie gewinnen, wenn Sie bis dahin die Mehrzahl 
der Treffer erzielt haben. Sie brauchen nicht zu ver- 
zweifeln, wenn Sie meilenweit zurückliegen, und nur noch 
wenige Ufos kommen. Jedes Mal, wenn Sie einen Treffer 
landen, wird der Ufozähler nicht erhöht, und eine neue 
Untertasse wird auf dem gleichen Kurs gestartet, wie die, 
die Sie gerade getroffen haben. Mit etwas Geschick istesso 
möglich, in einen ‘Rhythmus’ zu kommen und eine große 
Zahl von Abschüssen zu erzielen, bevor einer Untertasse 
ein erfolgreicher Vorbeiflug gelingt. 
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IE UrO2R GEZTARTET FEIND 
“x 


su 


. = - -.. « . 
“ . . -. . . » 
ze * Ai * 


REM Fliegende Untertsssen 
RESTORE : FOR „=USR CHRs 1d 
USR CHrs Idada+2l RERD a: PO 
‚a: NEXT ü 

EORBER 1: PAFER 1: INK ©: C 


> 
En | 
NcDOke 


LS 
18 FOR k=1 TO 12: GO SUB 38508: 
HEXT KK 
15 LET 2$=-CHRs 5E+HCHRs 14S+HCHR 
= 145 
22 LET bf=@: LET mf=8: LET bh=8 
ı LET x=1%8: LET =2=9: LET t=d: LE 
Trnzad 
=5 FRINT RT a,80; PRPFER 5, "SIE" 
sSTAB 3; "UFOS GESTARTET";TAB 27," 
FEINE" ’S;TAB 1E25;n2; TAB S1ı;t 
sa GC EUB 55904: Gar TO 1aea 
1926 LET Z1I==+ 1 INKEFS=S"mt AND x< 
S1I-IINKEYSeE"S" AND xrW 
ı11®e IF »<>x2 THEN FRINT AT 21,x 
;SEHRS S2E;AT Z1,x1; INK E;iCHRs$ 14 
4: LET x=x1 
a22 IF InNKecs 
LET mf=1 
1358 RETUFM 
12980 5G SUE 5500 
1295 LET 3=INT {IiFND=10): LET . b=I 
MT iRND&181: LET 3=17-2a: LET i=T 
MT {RHb&rTı+ılı 
198180 LET ns=ns+i1: FRINT AT 1,15; 
FAFER &;in=: IF nz2>59 THEN 60 TO 
agı 
ıi@ı5 IF bf=0 THEN LET bf=1: LET 
bk=a+l: LET Y=SGN ix=-b1I: LET Bku= 
b+4 
1920 IF h=1 THEN LET he: GO SuB 
Sean 
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a’ ANGb mf=ed THEN 


1835 FRINT AT a,b; INK i.=8& 

1050 IF bf THEN 50 305 5028 

ı1a355 IF mf THEN GO SUB Eos 

1940 GO SUB 1068 

1945 LET kb=E+1l: IF b=3a THEN PRI 

NT AT 2,50; CHhRs 52; CHRs 32: GO T 

oo 12000 

ıo5G Gl Sub 100 

1955 GG TO 1815 

SaaG PRINT FT bx,kuU;CcHRes 32: LET 
bz=Ex +1: LET EUsbu+4y 

sags IF by: OR bu>31 THEN LET b 


Yebyohu 
sala IF bx=zZZ2 THEN Go TO 5950 
S@aIS FRINT AT b2,by;".": RETURM 


sabsa LET he: IF ABEES {byu-x1<el T 

HEN LET bys=x: LET h=1: LET t=ti+#+il 
FRINT AT 1,32-LEN STR& tt; PAPE 

r 5:t 

5055 LET bY=abx-1: FOR Jje7 TO 15 

TEF -1: PRINT AT bx,ku; INK 453" * 

": MEXT 

SsgE20 EBEEF h+.21,50 

EQG5E5 LET bf=@: RETUFRM 

E000 IF mf=-1l THEN LET m<e-22: LET 
my 

BARS FRINT FT mx ,my;CHhrRs 52: LET 
NRkemx-1l: IF SCHEENS CMS .myı =CHR 

$ 48 OR m<=2 THEN GO TO B358 

E&18 FRINT AT mx .mu; tt" 

EG1S IF mx<ra THEN GO TO 2240 

EQ29 IF myu<s>b+z2 THEN GO TO 8040 

EBES LET $==s+1: FÜR j=E£ TO 1 STE 

F -1: PRINT AT a,b; INK J;tseee" 
MEXT ji: BEEFO.5.30 

Egz@a IF i=1l THEN LET =2=s5+4 

85055 PRINT AT 1.8; FRPER 5;=2: LE 

Tnf=-1: LET b=& 

E04 LET mnf=mf+i1: RETURN 

BO5G LET mf=D: IF mkiı sr AND ATTR 
{nx,AgJ}=5 THEN LET bf=ß8 

E955 FRIMT AT mx,my;CHrs 52 

Saec&d RETUWFRM 

Fagıa FRINT AT 1.12; PLASHM 1; ENK 
=; FRAFER 7,"'SFIELENGE': LET we= 

Faas IF t>= THEN LET w=-t 

72198 FRINT AT 1, (32-LEN STR8E ti* 
im); FLASH 1; FRFER 75 TUK a;w 

7215 IF t=s THEN FRINT RAT 1.0; F 

LASH 1; FHRFER 7; INK Bis 

vaz@ INFUT "Druscken Sie ""ENTER 

"um neu zu beginmen';s# 

TazZSES RUN 19 

Ssaoaga DATA 5,585,25,25,52,52,127,12 

7,1,535,7,2558,7,3,1,Q0,128,192, 224, 

255,224 ,192,125,0© 

sS5006 FOR J=1 TO Id: FRINT AT INT 
IRND#=1&5) +2,INT (RND#=G321 5; INK 7; 

".": NEXT ij: RETURN 
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3500 FRINT HAT zZ1,x; INK &;cCcHre ıi 
eh: RETUFM 
sag SAVE "UFOS'" LINE © 


ANMERKUNGEN ZUM PROGRAMM 
Die selbstdefinierten Graphikzeichen sind: 


CHRS 144 : Raketenbasis 
CHRS 145 und CHR$ 146 ; Fliegende Untertasse. 


Die Hauptschleife des Programms liegt zwischen Zeile 
1015 und Zeile 1055. Untertassen werden an den Koordi- 
naten a,b, die beide als Zufallszahlen in Zeile 1005 be- 
stimmt werden, gestartet. 


Die Farbe (INK) der Untertassen ist ebenfalls vom Zufall 
bestimmt und eigentlich unwichtig, außer daß beispiels- 
weise eine blaue Zeichnung auf blauem Hintergrund die 
‘unsichtbaren’ Untertassen entstehen läßt. 


Unterprogramm 100, das zweimal in der Hauptschleife auf- 
gerufen-wird (wie in "Übungsspiel”) bewegt die Raketen- 
basis, 


Unterprogramm 100 erzeugt neue ‘Sterne’ (siehe unten) 
Unterprogramm 5000 zeichnet Ihre Raketen. 
Unterprogramm 6000 zeichnet die Bomben. 


VORGEHENSWEISE 


Die Sterne in diesem Spiel sind sehr wichtig und mehr als 
nur ein hübscher Hintergrund für die Handlung. 


Sie können immer nur eine Rakete auf einmal in der Luft 
haben, deshalb geht Zeit verloren, während Sie darauf 
warten, daß die Rakete trifft oder den oberen Bildrand 
erreicht, Sterne dienen als nützliche ‘Ziele’, da Sie Ihre vor- 
beigegangenen Raketen zerstören und Ihnen so zu einem 
neuen Schuß verhelfen. (Wenn Sie einen Stern treffen, 
erhalten Sie natürlich keine Punkte, und der Stern wird 
ebenfalls zerstört). Andererseits behindern Sterne 
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zwischen Ihnen und den Untertassen Sie beim Treffen 
Ihres eigentlichen Ziels. Wenn Sie strategisch richtig 
spielen, dann sollten Sie versuchen, im oberen Teil des 
Himmels eine ‘Decke’ aus Sternen zu erhalten und jene in 
der Nähe des Bodens zu zerstören. Es lohnt sich oft in der 
Anfangsphase eines Spiels, die Untertassen zu ignorieren 
(aber auf die Bomben aufzupassen) und einfach zu ver- 
suchen, ein günstiges ‘Sternenmuster’ zu erstellen. 


Auf den Gegner allerdings haben die Sterne keinen Einfluß, 
und sowohl Ufos als auch Bomben durchfliegen sie unge- 
straft. Die Sterne werden zerstört, wenn sie durchquert 
werden, aber das könnte sich zu Ihren Gunsten auswirken. 
Denken Sie außerdern daran, daß jedes Mal, wenn eine 
neue Untertasse gestartet wird, gleichzeitig bis zu zehn 
neue Sterne entstehen. 
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FEUERKRAFT 


Zum Schluß eine völlig andere Art von Weltraumspiel. 


In den vorangegangenen drei Spielen konnten Sie auf dem 
Bildschirm wie im Lehnstuhl die Handlung beobachten. In 
“Feuerkraft" sitzen Sie selbst an den Kontrollhebeln der 
Laserkanone Ihres Raumschiffs, und der Bildschirm zeigt 
Ihnen den Blick durch das Visier. 


Sie haben 60 Sekunden, um so viele Feindschiffe wie 
möglich abzuschießen, indem Sie sie genau ins Zentrum 
des Visierkreuzes nehmen (2 Punkte), oder indem Sie 
einen der ‘Fäden’ mit dem Raumschiff zur Deckung bringen 
(1 Punkt). 


Ein ‘Fadentreffer’ zerstört den Gegner nicht, und es sollte 
deshalb möglich sein, bei jedem senkrecht anfliegenden 
Schiff drei Punkte zu erzielen. (Zuerst den oberen ‘Faden’ 
zur Deckung bringen und dann, unmittelbar danach, den 
Gegner ins Zentrum des Fadenkreuzes hineinfliegen 
lassen). 


Bei diagonal anfliegenden Schiffen können zwei Punkte 
erzielt werden, entweder durch einen direkten Treffer 
oder mit zwei erfolgreichen Streifschüssen. (Die erste 
Methode ist vorzuziehen, da das Schiff auch nach dem 
zweiten Treffer noch nicht zerstört ist und Sie darauf 
warten müssen, bis es den unteren Bildrand erreicht). 

In diesem Spiel sind Sie NICHT schneller als der Gegner, 
also ist das Stellungsspiel von äußerster Wichtigkeit. Jagen 
Sie nicht aussichtslos hinter weit entfernten Schiffen her, 
sondern konzentrieren Sie sich darauf, eine günstige Posi- 
tion zum Abfangen des nächsten zu erreichen. 


Benutzen Sie die Tasten “5”, “6”, "7" und “8”, um zu zielen. 
Drücken Sie auf die “O”-Taste, wenn Sie einen 'Streifschuß’ 
erzielen wollen. Wenn Sie den Gegner im Zentrum des 
Visierkreuzes haben, feuert Ihr Laser automatisch, 
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PUNKTE G ZEIT 1% 


* 
® *»* 
[3 * 
® * * 
* 
* * = 
* *x 
= = * 
* 
* # * 
* * = 
* 
“rt 
= “ * 
* 
* * *= 8 * 
* 
* 
* 

5 FÜR_ Jj=USR CnRs_idd TO USR 5 
Hrs 14447: RERAD a: FORE j,2: MEX 
TE 

i@ DIM a8(651: LET s${1)1=CHR& 
24: LET sS (321 eCcHR$ 45: LET ast 


JzchHeb 45: LET agiAS) =CHRs 124 


S: FRPER S: INK ©: 0 


zu FOR j=1 Ta zu: FRINT FT INT 
IANDsZ2) , INT SARNBsSEı Vet: NENNT 
Ri} 
SE LET 5s=0O 
Sa LET : ı1: LET y=i1RS 
35 FOKE =35735,6: FÜKE z5M72,0 
4 LET t=& 
45 LET b=0 
ı995 LET t1=INT ((iFEEK ZIETIFESE 
+FEEM ZIBSTEI me) 
ı865 IF t<rt1l THEN BEEF Bul.t: L 
ET tetl 
ı1© PRINT AT 2,8; QUER 5; "PFLNKT 
1 ZEIT ", t 
115 IF t>=5G0 THEN 50 TO ala 
ı20 IF MUT b THEN LET b=INT IRN 
Ds#31) +1: LET a=1: LET J=INT (iRND 
ı. Go TG 150 
FRIHNT AT a,b; SHRS 144: LET 
LET beb+d 
IF a=21 OR b=8 UR b=32 THEN 
bes. Gi TO zeoa 
FRIHT AT a,b: INK S;CcHRrs 14 


E 


FRINT AT x,.4; INK S:a8 

LET Feix+liz22+4: LET Fl=38* 
IF p=pri THEN BSEEF 1,582: LE 

T g=2+&: PRINT RT 2a,k;CHAs 144: 
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LET b=0: G0 Ta zac 

zıa IF INkEvrg<>ta" THEN 50 TO = 
za 

215 IF ABS {pP-Pil}=1 Or RBS {iR -P 
i}=22& THEN BEEP „5,50: LET z=2+1 
z2G0 LET x 1l=x+ (INKREVSE="R' AND x. 
15 -LINKEWSE=-TTU RAND a 

225 LET ylz=zy+ [INKEWSE=T'B' AND We 
305 -IINKEWE=N"SE" AND w>ıı 

2350 FRINT AT = ,4:38 

235 LET xex1: LET yeul 

zo Gl TO 100 

1000 FRIHNT DUER G; FLASH 1: FAFE 
"SPFIELENDGEV; 
£ £ SUbRUECKE "rt 
Zur WEITERSPIELREM'" 

138085 IF IHkEwsg$='r"t THEM RUN 

ı210 Gau TO I1mam 

Sso08 bDartmı G,80. 128,128, 126, 1220,8% 
ee} 

saoaa ZRAUE "FEUERKRAPT" LINE 0 


ANMERKUNGEN ZUM PROGRAMM 


Das feindliche Schiff ist das einzige selbstdefinierte 
Graphikzeichen in diesem Programm. 

Das ‘Visier' wird durch die vier Zeichen in der Feldgruppe 
aS () gebildet. Der Rest der.Feldgruppe ist leer, und wenn 
die gesamte Feldgruppe am Bildschirm ausgegeben wird, 
entsteht dadurch das 'Fadenkreuz’. 


Die Zeiteinteilung wird in den Zeilen 35 (zum Initialisie- 
ren), 100 und 105 vorgenommen, Wie in allen Program- 
men, welche die Systemvariable FRAMES für genaue Zeit- 


messung verwenden, sollte der Divisionsfaktor in Zeile 100 
den gleichen Wert wie die örtliche Stromfrequenz haben: 


(siehe Anmerkung auf Seite 16). 
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ZX-SPECTRUM-POWER 


Ob Sie nun als Neuling oder schon als versierter 
Programmierer an den ZX SPECTRUM heran- 
gehen, fasziniert von den fantastischen Grafik-, 
Farb- und Speichermöglichkeiten des SPEC- 
'TRUMs können Sie nun endlich mit diesem 
Buch sofort in die Feinheiten einsteigen. 


Viele Programme und eine Reihe von Routinen, 
die Ihnen sehr nützlich sein werden, enthält 
der vorliegende Band. Hier ein kleiner 
Ausschnitt aus dem Inhalt: Computerspiele mit 
beweglicher Grafik, ernsthafte Anwendungen 
und Geschäftsprogramme, eine Auswahl von 
Maschinenprogrammen in mnemonischen und 
Dezimalcode, eine Aufstellung von Unier- 
programmen, die Sie eigenen Programmen 
anfügen können und Weltraumspiele und, 
und... 


Wenn $ie alle Qualitäten Ihres Computers voll 
ausschöpfen wollen - brauchen Sie dieses Buch. 


POWER 
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